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THE STUFF FROM WHICH 
PROGRAMMING DREAMS ARE MADE. 

At South Mountain, we take (are of the details, you take (are of 

the (reativity. Our function libraries give you the most up-to-date, versatile, and (ompatible tools to help you build any application 
you (an conceive. Let South Mountain help you attain your highest programming goals with four of our best fun(tion libraries. 
Give them a try. Who knows what heights you will readi with the right set of tools. 


HOLD EVERYTHING 1 


' If you program in C, you can’t 
afford to be without the latest 
version of South Mountain 
Software's memory swapping utility. 

If you can write the code, Hold Everything 
can swap it out of memory to make room for 
another application. A simple function call is 
all it takes. No worries about interrupts, 
video modes or memory conflicts. 


• Saves/Restores Video Mode & Video 
Page 

• EMS Use May Be Toggled On & Off 

• Supports EMS 3.2+ or Disk Swapping 

• Extensive Error Trapping & Recovery 

• Combine with/* resident_C*/ 

• Includes Drive Directory File Specifications 


ESSENTIAL B-TREE™ 


t Few things in life are truly 
essential. But if you create 
vwf custom databases in C, the 
Essential B-Tree database management 
library is an indispensable tool for building 
that dream DB application. You have 
complete control over your data with Index 
Sequential Access Method (ISAM) routines. 
And now, Essential B-Tree is Unix compatible 
for even greater portability! 

• Fastest Access Method Available 
• Fixed & Variable Length Records 
• Records Up to 64K Bytes 
• Automatic File & Record Locking 
• Supports Single/Multi User & Network 
Databases 


C UTILITY LIBRARY™ 


Over four hundred functions and 
growing! The South Mountain C 
Utility Library features the fastest 
screen handling routines available, a full 



range of menuing capabilities, and just about 
every C function known to man. The power 
and versatility of South Mountain Hyper 
Functions make building even the most com¬ 
plex programs a snap. Advanced screen 
handling, expanded memory management, 
and complex data and string manipulation 
are just a simple function call away. 



• Screen Painter & Code Generator 

• File Backup Utilities 

• Window Editor/File Browser 

• Multiple Overlayed Windows 

• List Boxes & File Boxes 

• Integrated Mouse Support 

• Shadowing Capabilities for Menus 


/‘resident _CV™ 


This is the TSR utility library that 
your programs can truly live with. 
A full complement of Interrupt 
Service Routines (ISR’s) and complete 
interrupt handling, means you can count on 
safe, reliable code swapping. The ability to 
handle shared libraries gives your code 
maximum efficiency and the broadest 
possible compatibility. All you need is one 
simple function call to turn your programs 
intoTSR's. Now the /*resident_C*/ kernel 
requires even less memory than before! 

• Keeps Only 4K of the TSR in Memory 

• Activated by Key Stroke or Timer 

• Includes Super Keyboard Stuffer 
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• Communicate Between TSR and 
Foreground Programs 

• Allows Background Processing 

Order your copies today: Hold Everything™: 
$199; Essential B-Tree™: DOS $199, 

UNIX $399; C Utility Library™: $249, and 
/*resident/)*/™: $249. Try them for 30 
days. If you are not completely satisfied 
return them in the original packaging for a full 
refund. All South Mountain function libraries 
are compatible with Microsoft C/Quick C, 
Borland Turbo C and C++. Each package 
includes complete source code. 

To Order Call 1-800-451-6174 

Other essential programming tools from 
South Mountain: Essential Graphics Library™, 
GUIDO™, Essential Communications™, 
BreakOut II™. NEW! essential applications: 
Calculator™, Rolosms™, and Window 
Editor/File Browser™. 



SOFTWARE 


SOUTH MOUNTAIN SOFTWARE 

has supplied the highest quality, 
most up to date C programming tools 
and libraries for over five years. 
Every product <omes with a 30 day, 
money back, guarantee. We provide 
free telephone support from exper¬ 
ienced programmers, and you never 
pay a run-time fee or royalty to 
South Mountain. Our goal is simple, 
to give you the best C programming 
tools on the market today. 


76 South Orange Ave., South Orange, NJ 07079 
Tel: 201) 762-6965 Fax: 201) 762-0118 
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Call For Papers 


TECH Specialist, the journal for advanced PC 
programmers, is seeking articles on the topics 
below. If you have an idea for a related story 
and experience that would especially qualify 
you to write on one of these topics, contact the 
TECH Spec editorial staff for Author Guidelines 
at: 


TECH Specialist 

1601 W. 23rd St., Suite 200 
Lawrence, KS 66046 
(913) 841-1631 
FAX (913) 841-2624 


TOPICS 


Multimedia 


■ Proposals due 11/5/91 
manuscripts due 12/11/91 

Suggested topics: How to sup¬ 
port the MPC standard. Using the 
Microsoft Multimedia Development 
Kit. Using DVI to incorporate live 
video. An introduction to MIDI on 
the PC. Mixing sound and data on 
a CD-ROM. 


Hardware 

Manipulation 

■ Proposals due 12/5191 
manuscripts due 1/13/92 

Suggested topics: Using a 
transputer board. Accessing 
hardware directly from a Win¬ 
dows application. Programming 
a floating-point array processor. 
How to write a Windows device 
driver. A universal printer device 
driver. 


Interpreters 


■ Proposals due 1/6/92 
manuscripts due 2/10/92 

Suggested topics: Generating 
threaded code for a PC inter¬ 
preter. An interpreter replace¬ 
ment for COMMAND. COM. A minimal 
8086 Forth interpreter. A DOS 
shell for Windows. A feature 
comparison of Smalltalk, Actor, 
Liana, Object/1, KnowlegePro, 
etc. A User Report on a PC im¬ 
plementation of MUMPS. 


ovember 1991 


We prefer very practical and detailed treatments of 
real problems encountered when working on PC 
platforms. Topics should be of practical interest to 
professional developers working under MS-DOS or 
OS/2. Accompanying code may be in BASIC, Pas¬ 
cal, C, assembly, C++, or another language if the 
nature of the story requires it. 


We pay at rates competitive with other national 
technical journals and provide better editorial assis¬ 
tance than most. 

Proposals should include a short abstract, a one- 
page outline, and a brief resume of the author’s 
qualifications. When mailing the proposal, please 
include a hard copy and an ASCII text file on an 
MS-DOS formatted disk. 
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Borland C++ 

Turns heroes into legends 


Every day people count on you to write 
applications vital to their jobs. And again 
and again you prove to be a programming 
“hero.” Now, with Borland® C++ you can 
go beyond. You can become a legend! 
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The power of object-oriented pro¬ 
gramming found in Borland C++ gives 
you profound new capabilities for 
Windows and DOS development in C 
and C++. Advanced features speed you 
forward. Precompiled headers give you 
quick compilation, and the Turbo Drive™ 
DOS-extender lets you compile huge 
applications fast. The award-winning 
Turbo Debugger® gives you intelligent, 
interactive debugging on a single monitor. 
Comprehensive documentation supports 
effective use of increased capabilities. And 
the Programmer’s Platform™ provides an 
environment that inspires genius. 

Borland C++ conquers 
Microsoft C 



InfoWorld Report Card 

January 7,1991 


Microsoft C 

Borland C++ 

Version 

Version 6.0a 

Version 2.0 

Price 

$495 

$495 

Programming 

environment 

Excellent 

Excellent 

Language 

extensions 

Very Good 

Excellent 

Debugging 

Very Good 

Excellent 

Documentation 

Satisfactory 

Excellent 

Ease of use 

Good 

Excellent 

Value 

Very Good 

Excellent 

Final score 

7.3 



Borland C++ is the professional’s choice for 
C and C++ development. Tests conducted 
at the independent InfoWorld labs prove the 
superiority of Borland C++. For mission- 
critical applications, Borland C++ gives you 
the excellence you need. 

Seize the power of 
application frameworks 

New! Borland ® C++ & Application 
Frameworks slashes development time 
by giving you intuitive, ready-made 
user interfaces for Windows and DOS 
that you can simply plug into your 
application or customize any way you 
wish. High-level objects are ready to 
bolt on with just a few lines of code. 
Add an editor in just one line. Auto¬ 
matically inherit windows, menus, 
scroll bars, mouse support and more. 

The built-in ObjectWindows™ 
application framework streamlines 
Windows development. It automates 
initialization and gives your applica¬ 


LABS 


ANALYST’S 

CHOICE 


tions more functionality with less code. 
ObjectWindows features Borland 
Custom Controls that make your appli¬ 
cations look great. 

Also included is Turbo Vision,™ 
the application framework for DOS 
that gives you similar capabilities to 
ObjectWindows for character-based 
programs. And both come with full 
source code. 

From Borland, the 
professional’s choice 

When you buy Borland C++ you get 
more than just the best C and C++ 
compilers. You get 
support from the 
object-oriented 
language leader. 

In fact, J.D. Power 
and Associates 
ranked Borland 
“Best Application 
Software in 
■ Customer Satis¬ 
faction, in Small and Medium Sized 
Businesses.”* And PC Week honored 
Borland C++ with their analyst’s choice 
award, stating “Borland’s Windows tools are 
excellent, both individually and in their 
smooth integration into a convenient devel¬ 
opment cycle... Borland offers the strongest 
solution for C++...” 

Borland’s C++ products have also won 
PC Magazine’s Technical Excellence award, 
BYTE’s Award of Excellence, and more. 

Become a legend 
in your own time 

Choose Borland C++ or Borland C++ & 
Application Frameworks and unleash your 
full potential. The results will be epic. Don’t 
wait. Start becoming a legend today! 

See your dealer 
or call now 
1 - 800 - 331-0877 


I CODE: ML03 1 


*1991 J.D. Power and Associates Computer End User Satisfaction Study: Phase I. Office Based Small to Medium Sized Businesses^ Response from Business End Users at 1,784 business sites. Small to medium sized businesses were based on office sites 
with between 1 and 499 employees. J.D. Power and Associates is a service mark of J.D. Power and Associates. Borland is a registered trademark of Borland International, Inc. Copyright © 1991 Borland International, Inc. All rights reserved. Bl 1424 
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From 

The Editor 


We have been working to improve the language balance in TECH 
Specialist and it has been an interesting process. My thanks to all of you 
who have been responding to our search for articles in a variety of lan¬ 
guages, on a variety of topics. With this much help from the readership, I 
think we will be able to meet our editorial goals in the coming year quite 
handily. 

All the discussion of language balance has made me think about the 
demographics of programming languages. Do BASIC programmers tend to 
work for smaller companies than C programmers? Do Pascal programmers 
tend to work more with business applications than other types of applica¬ 
tions? 1 took our old reader survey data and tried to break the answers 
down by language. The results are inconclusive because our survey asked 
which two languages you use most and 1 wanted to correlate the results 
with your primary programming language. Still, 1 saw some correlations that 
make me want to know more. People who listed BASIC as one of their 
languages were twice as likely to pick our former DOS column as their 
favorite column. One weird trend was that anyone who listed Pascal as a 
language was more likely to work for a small company or a large company 
than for a medium-sized company. 

There is no denying that demographics vary by programming language. 
What’s arguable is what those demographics mean, and programmers will 
probably always debate those issues. If you stuck all the programmers in 
the world into one town, 1 think the demographic differences would be¬ 
come obvious. There would be bars just for assembly language program¬ 
mers, a little bit seedy with motorcycles outside, I think. The traffic lights 
would be automated by BASIC programmers; they would work just fine, but 
never quite as fast as you would like. The town government would consist 
of Ada programmers, reliable but with a lot of rules and regulations. Some¬ 
where in this mythical town there would surely be a place for non- 
denominational programmers, a kind of McDonald’s for the multi-lingual. 
That’s where you would find TECH Specialist. 

Ron Burk 

Editor 


Page 4 — TECH Specialist 


November 1991 



















o 


o 


o 


\ 


o 

10 


0 


\ 


0 

0 V 
\ 


0 

o 


o 

0 


o 
o 

10 
0 


0 


0 

0 


0 


o 


0 


/ 
o 


0 o 
1 o 


o \ 


o 
0 

10 

o' 


0 


0 


Designing Custom Memory 
Management Systems In C++ 


Ismail Zia 

C++ provides two operators called new and delete to allocate and 
free memory for objects. Both operators can be overloaded at the 
global level and also at any object class level. The object level over¬ 
loaded operators new and delete get called when pointers to objects 
are used in a program. If these operators are not overloaded at the 
object level, then global operators new and delete are called. 

The new operator allocates memory for an object. The delete 
operator frees up the memory occupied by an object. 

For most applications there is no need to overload these operators, 
unless the overhead for each allocation is too high or custom memory 
management system is required. Applications for Windows use 
memory allocation and deallocation routines provided with the MS 
Windows 3.0 Software Development Kit, and not C or C++ library func¬ 
tions. 

The Windows SDK provides functions to allocate memory in both a 
local heap and a global heap, in both cases, a memory handle is re¬ 
quired to lock memory, obtain the pointer to the memory, and sub¬ 
sequently unlock or free up the memory. By providing handles to the 
memory, Windows may manipulate memory blocks as needed. 

Since the local heap is a single segment with the segment address 
in register OS, the handle returned by a call to allocate memory in 
local heap is the actual memory offset within the segment In other 
words, pointers to the local heap are near pointers, while all pointers 
to the global heap are far pointers. 

So in C++, operators new and delete may need to be overloaded, 
at least at the global level to allocate and free memory for objects. 

The following example shows simple overloading without error 
checking. Note that the local heap is used so there is no need to store 
the handle to the memory. If the global heap were used, then the 
handle and the corresponding pointer would have to be stored, to free 
up the memory later. 



void ‘operator new(size_t size) 

{ 

return (void near *)LocalAlloc (LMEMFIXED,size); 

} 

void operator delete(void *p) 

{ 

LocalFree( (Handle)p); 

} 


Ismail Zia has a master of science degree from the University of 
Bombay and is currently residing in Dubai, UAE, where he has worked 
as a systems analyst. His programming interests include graphics, 
human aspects of user interfaces, object-oriented programming, CASE, 
relational RDBMS, and SQL. He may be contacted in Dubai at 9714- 
690565. 


November 1991 


TECH Specialist — Page 5 






Listing 1 (memory.hpp) 

y****************************************************y 


/* 



*/ 

/* 

Module : 

MEMORY.HPP 

*/ 

/* 



*/ 

/* 

Author : 

Ismail Zia 

*/ 

/* 



*/ 

/* 

Date : 

20-Mar-1991 

*/ 

/* 



*/ 

/* 

Purpose: 

Header file for memory module 

’/ 

/* 


class definitions. Macros. 

*/ 


y****************************************************y 


#ifndef MEMORY_HPP 

#define MEMORY_HPP 

lifdef MSW 

linclude <windows.h> 

#endi f 

linclude 

#ifdef LONG_DEF 

Idefine 
Idefine 
Idefine 

typedef 

lelse 

Idefine 
Idefine 
Idefine 

typedef 

lendif 


class MemBlock 

{ 

private: 

lifdef MSW 

HANDLE hMemHandle; 


lendif 


MEMHEADER 

’Mem; 

MEMHEADER 

Size; 

MEMHEADER 

Offset; 

MEMHEADER 

Used; 


public: 

MemBlock(const MEMHEADER sz); 

~MemBlock(void); 

void *const MemAllocate(const MEMHEADER sz); 
const MEMHEADER MemFree(void ’const ClientP); 

const short ObjInBlock(void ’const obj); 


private: 

void ’operator new(size_t sz); 


<stdlib.h> 


MEM_FREE 

MEM_INUSE 

MEM_HEADER_SIZE 

unsigned long 


MEM_FREE 

MEM_INUSE 

MEM_HEADER_SIZE 

unsigned int 


OxFFFFFFFE 

0x00000001 

4 

MEMHEADER; 


OxFFFE 

0x0001 

2 

MEMHEADER; 


When declaring objects in a routine, the function calls to new 
and delete are required, because these allocate free memory 
for the object. If new and delete are overloaded as shown in 
the previous example, but memory in global heap is required, 
then one solution is to store handle and pointer pairs, probab¬ 
ly in an array, and change calls to the local heap in operators 
new and delete to calls to the global heap, when freeing 
memory, each time obtaining handle given a pointer, from the 
array. 

Also, if a class has pointers to data items, then for intrinsic 
types, global new is called. For user-defined classes, if new is 
overloaded for that class, then it will get called, otherwise the 
global new will get called. 

Another solution presented in this article requires no 
change in a C++ program, routines call new and delete as 
usual. Additionally, this scheme requires only two bytes over¬ 
head per pointer, and memory operations are reasonably fast. 
Two statements need to be added to a program - one at the 
beginning for initialization, and the other at the end to clean¬ 
up. 

Except for the linked list of memory block objects in this 
scheme (which is allocated from the local heap), most of what 
is called client memory is allocated from the global heap. 

This scheme can be used even in programs not developed 
for Windows, with only the 2-byte overhead for a client 
pointer. 

Memory is obtained from the operating system in blocks of 
a given size. Memory blocks are divided into sub-blocks, each 
sub-block consisting of a header (normally two bytes contain¬ 
ing the size of the sub-block), and remaining bytes of the 
given size requested for the client pointer, also at least two 
bytes. 

A free list of sub-blocks is maintained by storing offsets to 
the next free block as the contents of the previous free sub¬ 
block. 

K1 and K2 are offsets from the beginning of the memory 
block. A separate variable stores the offset to the first free 
sub-block, then the contents of this free block itself (not the 
contents of its header which stores the size of the sub-block) 
are the offset of next free sub-block, or zero, if it is the last 
free sub-block. 

When created, a new, whole memory block is one free 
sub-block, with first two bytes as a header containing the size 
of the sub-block, and the sub-block itself containing zero, 
meaning there are no more free blocks. The head of the free 
list of sub-blocks contains 2, which is the offset of the first 
free sub-block. 

When allocating memory, the free list is scanned to find a 
sub-block whose size is equal or greater than required. 

If the size block is equal, then the free list is updated and a 
pointer to the offset returned as a client pointer. 

If the block size is more than four bytes larger than 
needed, then the sub-block is divided into two. A block of the 
required size is returned as client memory, and the remaining 
memory is added to the free list as a new block. If the excess 
size is not at least 4 bytes, then the excess is ignored and the 
block is returned to the client. 

The system must maintain a linked list of memory blocks, 
scan each block in turn to find a sub-block of the required 
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Listing 1 — Cont’d 

void operator delete(void *p); 

void *const NCPointer(MEMHEADER *const p,\ 

MEMHEADER ‘const Lst,const MEMHEADER sz); 

}; // End of class definition MemBlock 


class Listltem 


MemBlock Mb; 
void ‘Next; 


public: 


ListItem(const MEMHEADER sz) : Mb(sz) 

( 

Next=NULL; 

) 

~ListItem(void) 

{ 

1 

Listltem ‘const GetNext(void) 

{ 

return Next; 

} 

void SetNext(ListItem ‘const Li) 

{ 

Next = Li; 

) 

const short ObjInBlock(void ‘const obj) 

( 

return Mb.ObjInBlock(obj); 


void ‘const MemAlloc(const MEMHEADER sz) 

{ 

return Mb.MemAllocate(sz); 

} 

const MEMHEADER MemFree(void ‘const obj) 

{ 

return Mb.MemFree(obj); 


private: 

void ‘operator new(size_t sz); 
void operator delete(void *p); 

}; // End of class definition Listltem 

class List 

{ 

void ‘Head; 
void ‘Tail; 

public: 

List(void); 


WE HAVE WAYS TO 
MAKE YOU TALK. 

(And Cet you 
Listen in, too) 



with tools from 
Blaise Computing. 

*7 atk^ to your modem and 
connect zoitfi remote systems. 

Go online with ease with our new modem control 
routines. Initialize, dial, answer, auto-answer, 
and auto-adjust for incoming baud rate. 

Let's talkfile transfer. 
XModem/YModem routines let you send and 
receive multiple files over multiple ports. If your 
program has ISR/TSR capability (as provided by 
our POWER TOOLS PLUS, C TOOLS PLUS, or 
Turbo C TOOLS), you can talk file transfer in the 
background while yourforeground process talks 
data input, or database query, or whatever. 

The file transfer capabilities include 1K packets, 
CRC error checking, YModem (multi-file 
transfers with file name and size preserved), 
automatic adaptation to incoming packet size 
and error detection method. And we’re talking 
fast — all file transfer routines have been 
optimized for maximum throughput. 

Let’s talk, basics. 

C ASYNCH MANAGER™ and ASYNCH PLUS™ 

retain the features which have made them the 
libraries of choice for asynch projects — 
buffered interrupt-driven input and output to 
multiple COM ports with speeds up to 19200 
Baud, XON/XOFF protocol, hardware 
handshaking and much more. 

C ASYNCH MANAGER supports Microsoft C, 
QuickC and Turbo C. ASYNCH PLUS supports 
Turbo Pascal and QuickPascal. Both products 
require DOS 2.00 or later and an IBM PC, XT, AT 
or PS/2 machine or true compatible. 

Let's tadfprice. 

Why pay more? Our ASYNCH packages are just 
$189, including complete source code, a 
comprehensive reference manual with extensive 
examples, sample programs and online help. 

Turn that serial ca6le into a 
party Cine zoith ‘L'iew'252/ 

Debugging serial communications doesn't have 
to leave you talking to yourself. View232™ turns 
your computer into a serial data analyzer that 
lets you listen in on the conversation between 
any two serial devices — and this party line 
provides a transcript of what was said! 

View232 displays the data as it flows in both 
directions. Save a whole transmission in a 
buffer, then browse through or search the buffer 
for a pattern or specific character. And you can 
save the data to disk or print it for later study. 
VIEW232 is easy to use. And we supply the 
cable, all for just $189! 

Let’s talk,track record. 

Blaise Computing has produced a collection of 
tools that are unsurpassed for reliability, 
flexibility, and ease of use. 

Tnd, u>e 're talking guaranteed. 

If during the first 30 days you’re not completely 
satisfied, we’ll refund your money. 


Call (800) 333-8087 today! 


BLAISE COMPUTING INC. 

819 Bancroft Way 
Berkeley, CA 94710 
(415) 540-5441 
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Listing 1 — Cont’d 

~List(void); 

void *const MemAlloc(const MEMHEADER sz); 
void MemFree(void *const obj); 


private: 


void *operator new(size_t sz); 
void operator delete(void *obj); 


// End of class definition List 


void SetDefaultSize(const MEMHEADER size); 
const MEMHEADER GetDefaultSize(void); 
void InitMem(const MEMHEADER sz); 
void EndMem(void); 

void MemErr(void); 


lendif //MEMORY_HPP 


Listing 2 (memory.cpp) 


y***************************************************/ 


/* Module : MEMORY.CPP *1 
/* */ 
/* Author : Ismail Zia */ 
/* */ 
/* Date : 21-Mar-1991 */ 
/* */ 
/* Purpose : Implementation routines of */ 
/* classes defined In memory.hpp */ 
/* */ 
/* Notes : To be compiled with Zortech C++ */ 
/* ver 2.1 in large model, for MS */ 
/* Windows 3.0, define MSW. */ 
/* Linker must link new and delete */ 
/* from this object file, and not */ 
/* from standard library. */ 
/* */ 


y ***************************************************/ 

linclude "memory.hpp" 

linclude <stdio.h> 

linclude <string.h> 

static MEMHEADER DefaultSize; 


/* all three classes, namely MemBlock, Listltem, 
and List have operators new and delete 
over loaded */ 

void ‘MemBlock::operator new(size_t sz) 

{ 

lifdef MSW 

return (void near *) LocalAlloc( LMEM_FIXED | LMEM_ZER0INIT, sz); 
lelse 

return (void *)malloc(sz); 
lendif 

} 

void MemBlock::operator delete(void *p) 

{ 

if (p 1- NULL) 

{ 

llfdef MSW 

Local Free( (HANDLE) p); 

lelse 

free(p); 

lendif 

} 

} 


size, and create and add new memory blocks to the list when 
needed and allocate client memory from an appropriate block. 

While freeing client memory, if an indication of client 
memory usage in each block is maintained, then memory 
blocks can be freed as well, on the fly, when all component 
sub-blocks have been freed. 

The system must overload the operators new and delete, 
so that all requests for memory are routed through it. 

These ideas are implemented in C++, as three classes. List¬ 
ing memory.hpp (see Listing 1) contains class definitions, 
macros, and function prototypes. The implementation routines 
appear in Listing 2. 

Class MemBlock consists of a pointer to a block of memory, 
variables to store the size of the block, usage count of 
memory in that block, offset of first free sub-block, and op¬ 
tionally a handle to a global memory pointer if compiled for 
Windows. 

Class Listltem consists of MemBlock as member object, 
and additionally a pointer to the next object of type Class 
Listltem, defined as void *. 

Class List consists of two pointers, one as head to the list 
and the other as tail. A singly-linked list suffices. 

A static variable DefaultSize is defined, with a function to 
set its value and another to return its value. 

A static variable GMemList of class type List is initialized 
when InitMem() is called, and destroyed when EndMemf) is 
called. 

Global new and delete are overloaded, to allocate and free 
memory by calling these routines and using variable GMem¬ 
List, instead of calling C or C++ library functions. 

Six functions are visible to the client applications, two to 
access the default size at any time, new and delete, function 
InitMem() to be called once at the beginning of a program, 
and EndMem to be called at the end. 

Global operator new calls MemAlloc() function of class List. 
MemAlloc of class List scans each MemBlock for a block of 
the requested size, when a block is found a pointer is 
returned, otherwise MemAlloc() creates a new Listltem with 
either DefaultSize or the required size, then whichever is 
greater, and appends this Listltem to the list, and calls itself 
to allocate from the new list. 

Global operator delete calls MemFree() function of class 
List. MemFree() of class List scans each Listltem to find 
the MemBlock where the pointer to be deleted is located. 
When the block is found, the MemFree() function of class Mem¬ 
Block is called to update the free list of sub-blocks. 

For each of the three c\asses(MemBlock, Listltem, and 
List), operators new and delete have been overloaded to call 
the appropriate library function, otherwise the global new or 
delete would get called, creating an infinite loop. 

Program meml.cpp (see Listing 3) is a test program, which 
repeatedly asks for a default size of memory blocks to allo¬ 
cate and a size for an array of pointers to integers. The test 
program calls InitMem() with the default size, and allocates 
memory for each array item by calling new. Sequential num¬ 
bers are assigned as contents of the objects pointed to by the 
array. The array is printed out, and freed by calling operator 
delete. The process is repeated once more, then the function 
EndMemf) is called, and the main loop is entered again. 
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Listing 2 — Cont’d 


/* the constructor allocates memory for member item Mem, 
of the size passed to it or DefaultSize whichever is 
greater, and initializes other variables. OffSet is 
the offset of first free client sub-block in Mem, 

Used is amount returned from Mem any time, and Size 
is size in bytes of allocated to Mem ‘/ 

MemBlock::MemBlock(const MEMHEADER sz) 

{ 

MEMHEADER szl - DefaultSize; 

if (sz > DefaultSize) 
szl - sz; 

lifdef MSW 

hMemHandle - GlobalAlloc(GMEM_FIXED | GMEM_ZEROINIT,Size - szl); 
Mem - (MEMHEADER ‘)GlobalLock(hMemHandle); 

#else 

Mem - (MEMHEADER *)malloc(Size-szl); 

#endif 

if (Mem I- NULL) 

{ 

lifndef MSW 
memset(Mem,0,Size); 
lendif 

‘(MEMHEADER *)Mem - (Size-MEM_HEADER_SIZE); 

OffSet - MEM_HEADER SIZE; 

Used - 0; 

} 

} 


/* MemAllocate scans free list of sub-blocks, if it finds 
a free sub-block of size more or equal, then calls 
NCPointer to return pointer */ 

void ‘const MemBlock::MemAllocate(const MEMHEADER size) 

{ 

if (lOffSet) 
return NULL; 

MEMHEADER Current - OffSet; 

MEMHEADER ‘Last - &0ffSet; 

MEMHEADER *p; 

MEMHEADER sz » (size+1) & MEM_FREE; 


while (Current I- 0) 

{ 

p * (MEMHEADER ‘)((long)Mem + Current - MEM_HEADER_SIZE); 

if ((‘p)>-sz) 

{ 

return NCPointer(p,Last,sz); 

} 

Last-(MEMHEADER *)((long)p+MEM_HEADER_SIZE); 

Current - ‘Last; 

} 

return NULL; 

) 


/‘ destructor frees up memory allocated variable Mem ‘/ 

MemBlock: MemBlock (void) 

( 

lifdef MSW 

Global Unlock(hMemHandle); 

GlobalFree(hMemHandle); 

lelse 

free(Mem); 

lendif 

) 


/‘ having decided a client pointer belongs to given 
MemBlock, this routine updates free list of 
sub-blocks, reduces the usage by amount freed, 
and returns the current usage */ 

const MEMHEADER MemBlock::MemFree(void ‘const ClientP) 

{ 

Used — ((‘(MEMHEADER *)((long)ClientP - \ 

MEM HEADER_SIZE))+MEM_HEADER_SIZE); 
‘(MEMHEADER ‘)cTientP - OffSet; 

OffSet - (MEMHEADER)((long)ClientP - (long)Mem); 
return Used; 


/* having decided a sub-block of sufficient size is 
available, this routine either breaks up this free 
sub-block into two blocks first of which is returned, 
or returns little more memory or equal, in any case, 
it updates free list, p is pointer to available 
sub-block. Last is pointer to contents of offset 
of last free sub-block, sz is required size ‘/ 

void ‘const MemBlock::NCPointer(MEMHEADER ‘const p, 

MEMHEADER ‘const Last, const MEMHEADER sz) 

{ 

MEMHEADER reminder - (‘p)-sz; 

MEMHEADER *r - (MEMHEADER *)((long)p+MEM_HEADER_SIZE); 

if (reminder >« (2*MEM_HEADER_SIZE)) 

{ 

(*p) - sz; 

MEMHEADER ‘q - (MEMHEADER *)((1ong)r+sz); 

*q - (reminder - MEM_HEADER_SIZE); 

‘Last - (MEMHEADER)((long)q+MEM_HEADER_SIZE-(long)Mem); 

‘(MEMHEADER *)((long)q+MEM_HEADER_SIZE) - ‘r; 

) 

else 

{ 

‘Last « *r; 

} 

Used +- ((*p) + MEM_HEADER_SIZE); 

return (void *)r; 

} 


/‘ determines if a client pointer belongs to a 
given MemBlock */ 


const short MemBlock::ObjInBlock(void ‘const obj) 

{ 

return ((long)obj >- (long)Mem) && \ 

((long)obj < (long)Mem+Size); 


} 


void SetDefaultSize(const MEMHEADER size) 

{ 


if (size <- MEM_HEADER SIZE) 

DefaultSize - (MEM_HEADER_SIZE)«1; 

else 


DefaultSize-(size+1) & MEM FREE; 

} 

const MEMHEADER GetDefaultSize(void) 

{ 


return DefaultSize; 

} 


void ‘Listltem::operator new(size_t sz) 

{ 

lifdef MSW 

return (void near *) \ 

LocalAlloc( LMEM_FIXED | LMEM_ZEROINIT, sz); 
lelse 

return (void *)malloc(sz); 
lendif 

} 
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Listing 2 — Cont’d 


void ListItern::operator delete(void *p) 

{ 

if (p I- NULL) 

{ 

lifdef HSW 

Local Free( (HANDLE) p); 

#else 

free(p); 

#endif 

} 


void *List::operator new(size t sz) 

{ 

lifdef MSW 

return (void near *) \ 

LocalAlloc(LHEM_FIXED | LMEM_ZEROINIT, sz); 
lelse 

return (void *)malloc(sz); 
lendif 

} 

void List::operator delete(void *p) 

{ 

if (p I- NULL) 

{ 

lifdef MSW 

LocalFree( (HANDLE) p); 

lelse 

free(p); 

lendif 

} 

} 

List::List(void) 

{ 

Listltem *tmp« new Listltem(DefaultSize); 

Tail ■ Head « tmp; 

} 


/* just to make sure, removes all Listltems from 
List. In normal termination, all Listltems must 
have been freed automatically, except the Head */ 

List::~List(void) 

{ 

Listltem *tmp ■ Head; 

while (tmp I- NULL) 

{ 

Head ■ tmp->GetNext(); 
delete tmp; 

tmp - (Listltem *)Head; 

} 

} 


/* Searches all Listltems, starting with Head, for 
MemBlock having sufficient free, if not found 
then appends a new Listltem to the List */ 

void *const List::MemAlloc(const MEMHEADER sz) 

{ 

Listltem *Li ■ Head; 

while (Li I- NULL) 

{ 

void *p - Li->MemAlloc(sz); 
if (p !• NULL) 
return p; 

Li - Li->GetNext(); 

} 

Li - new Listltem(sz+MEM_HEADER_SIZE); 

Listltem *tmp - Tail; 
tmp->SetNext(Li); 

Tail - Li; 

return Li->MemAlloc(sz); 

} 


/* Searches all Listltems, starting with Head, for 
the MemBlock to which pointer to be freed belongs, 
after freeing, if the usage returned is * 0, then 
frees up that Listltem and updates chain */ 

void List::MemFree(void *const obj) 

{ 

Listltem *Li - Head; 

Listltem *Lst - NULL; 

while (Li 1- NULL) 

{ 

if (Li->0bjInBlock(obj)) 

{ 

if ( 1 Li->MemFree(obj)) 

{ 

if (Lst l- NULL) 

{ 

Lst->SetNext(Li->GetNext()); 

if (Tail — Li) 

Tail - Lst; 

delete Li; 

} 

} 

return; 

} 

Lst - Li; 

Li-Li->GetNext(); 

} 

} 


List ‘GMemList; 

void InitMem(const MEMHEADER sz) 

{ 

SetDefaultSize(sz); 

GMemList - new List; 

} 

void EndMem(void) 

{ 

delete GMemList; 

} 

lifndef MSW 
void MemErr(void) 

{ 

printf(“Memory Allocation Failed\n“); 

} 

lelse 

void MemErr(void) 

( 

MessageBox(NULL, "Memory Allocation Failed", 
NULL, MB_ICONEXCLAMATION | MB_0K); 

} 

lendif 

/* Global new and delete operators overloaded */ 

void ‘operator new(size_t size) 

{ 

void *p; 

if (size<2) 
size«2; 

p - GMemList->MemAlloc(size); 

if (p — NULL) 

MemErrQ; 

return p; 

} 

void operator delete(void *obj) 

( 

if (obj I- NULL) 

GMemList->MemFree(obj); 

} 


// End of File 


November 1991 


TECH Specialist — Page 11 




This is one scheme in C++ to imple¬ 
ment custom memory management. 
The routines can be enhanced to pro¬ 
vide statistical tracking of memory 
usage and error checking. Also, inline 
member functions of class Listltem 
which are public can be made 
protected. If a package is already 
developed in C++ with library functions 
new and delete, then to adapt it to 
Windows 3.0 without changing the calls 
to new and delete (and to use the 
global heap of Windows) requires an in¬ 
terface module. Also Windows has 
overhead and limitations on the use of 
the Global Heap (i.e., 20 bytes overhead 
per pointer, and a limited number of 
8192 handles). Finally, such a system 
can also be used for C++ class libraries of 
user interface functions for Windows. □ 

References 

Using C++, Bruce Eckel, Osborne Mac- 
Graw-Hill, 1989. 

“Fast Memory Allocation Scheme,” 
Steve Weller, The C Users Journal, April 
1990. 


Listing 3 (meml.cpp) 

linclude <stdio.h> 

#include "memory.hpp" 


main() 

{ 

unsigned **jj; 
unsigned i,k; 
unsigned sz; 

while (1) 

{ 

printf (“Enter default size, no of items"); 
scanf("%d %d",&sz,&k); 

InitMem(sz); 

jj = new unsigned * *[k]; 

for (i=0;i<k;i++) 

{ 

jj[i] ■ new unsigned; 

) 

for (i=0; i<k; i++) 

{ 

if (jj[i] !- NULL) 

*(jj[i]) = i; 

1 
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Listing 3 — Cont’d 


for (i=0; i<k; 1++) 

{ 

if (jj[i] !■ NULL) 

printf("value = %d pointer* %p long= %d\n",\ 

*(jj[i])>jj[i]»(long) (jj [i]) ); 

) 

printf("pointer* %p long=%d\n",jj,(long)jj); 

float *f = new float; 

if (f != NULL) 

*f = 123456.7890; 

printf("old pointer=%p, new pointer=%p, new value=%f\n",\ 
jj [2] ,f,*f); 

delete f; 
f = NULL; 

for (i=0;i<k;i++) 

{ 

delete jj [i]; 
jj [i] = NULL; 

) 

delete jj; 
jj - NULL; 

delete f; 
f = NULL; 

jj ■ new unsigned *[k]; 

for (i=0;i<k;i++) 

( 

jj[i] = new unsigned; 

) 

for (i=0; i<k; 1++) 

{ 

if (jj [i] != NULL) 

*(jj [i]) = i; 

) 

for (i=0; i<k; i++) 

{ 

if (jj[i] !■ NULL) 

printf(“value = %d pointer* %p long* %d\n",\ 

*(jj[i]).jj[i].(long) (jj [i]) ); 

) 

printf(“pointer* %p long=%d\n“, jj, (long)jj); 

for (i=0;i<k;i++) 

( 

delete jj[i]; 
jj [i] = NULL; 

} 

delete jj; 
jj = NULL; 


EndMem(); 

) 

) 


// End of File 
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Memory Caching 
And Optimized Disk I/O 

Thomas W. Nelson 


A common goal in programming is to use memory 
in the most efficient manner possible. In addition to 
this basic goal, you can use your system's memory to 
enhance hardware/system performance. This article 
focuses on using memory to optimize disk I/O and 
thus increase system and/or application performance. 

Most applications rely on nothing more than the 
operating system to process disk accesses. However, 
most operating systems aren't in a position to know 
what’s best for an application in terms of disk access 
efficiency. For an application that spends most of its 
time waiting for user input, a delay of several tens of 
milliseconds to process an occasional disk access is 
certainly acceptable. Yet for disk-intensive operations, 
the speed of disk I/O throughput becomes critical. You 
could relieve this problem by reducing the number of 
time-intensive disk accesses to a minimum. All operat¬ 
ing systems include some type of disk cache to 
process disk sector reads and writes. But for an ap¬ 
plication that needs something more than an operat¬ 
ing system cache to efficiently regulate its own disk 
activity, you can turn to file- based caching. This sys¬ 
tem attaches a cache to one or more files in an ap¬ 
plication such that you can access frequently-needed 
file blocks without physical disk accesses. 


Tom Nelson is an independent author, consultant, 
and part-time artist He can be reached at 5004 W. Mt. 
Hope Rd., Lansing, MI 48917. 
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Figure 1 


read_block() { 

search for block in cache list; 

if( block not found ) { 

reuse oldest cache block; 

read block from disk into cache buffer; 

} 

copy block from cache buffer to application; 

) 

write_block() { 

search for block in cache list; 

if( block not found ) 

reuse oldest cache block; 


copy block from application to cache buffer; 


} 


if( using write-through strategy ) 
write cache buffer to disk; 

else 

mark block in the cache for delayed 
writing to disk; 


Accessing Blocks from a Cached File 
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Cache Operation 

A disk (or file) cache is simply a section of memory where 
you keep recently or frequently accessed blocks. Getting a 
block from memory incurs less overhead than physically ac¬ 
cessing the disk. A "block" has various meanings depending on 
context. To an operating system, it usually means a disk sec¬ 
tor-, to your application, it means one section of a file that you 
have logically divided into a number of sections of arbitrary 
length (an array of blocks). File blocks need not necessarily 
correspond to physical disk sectors in length and can be any 
size needed. 

Used in an application, the cache manager works by first 
checking all cache buffers for the presence of the requested 
block (each block has a number), if it finds the block, the 
manager returns a pointer to the buffer containing the desired 
block. If the block wasn’t found, a read request obtains the 
block from the operating system and copies it into a cache 
buffer. You write file blocks into the cache first, from where 
they are written to disk only if the same buffer must be 
reused. Figure 1 summarizes this operation in pseudocode. 

Performance Issues 

You as the application developer must know what situa¬ 
tions will benefit from a cache, otherwise you could be adding 
unnecessary overhead. For example, you shouldn’t cache a file 
read or written sequentially, since you access each block only 
once. Binary files accessed by block (database files are a good 
example) will benefit the most since it’s more than likely you 
will access some of the blocks more than once. 

In the case where all blocks have an equal probability of 
being accessed, that is, perfectly random disk access, you 
measure the cache’s performance as the average block access 
time. Over a sufficient length of time, the probability of a 
cache hit (finding a block in the cache) is simply n/b, given a 
cache consisting of n blocks and a file b blocks in length. A 
cache equal to or bigger than the file will have 100 percent 
certainty of a cache hit once all blocks have been read. Unfor¬ 
tunately, a tradeoff must be made here. The larger the cache, 
the more time it takes to search the cache for the presence of 
a block. In this case, it would be better to read the whole file 
into memory, then access the file directly without the over¬ 
head of the cache manager. For small caches the probability 
of a hit is small, which again makes the caching code more of 
a hindrance than a help. 

Every file has an optimum cache size, depending on the file 
access method, CPU speed, and average disk access time 
among a number of other variables. To help you find the op¬ 
timum size, the cache manager records all cache hits and mis¬ 
ses each time you search the cache for a block. The average 
ratio of cache hits to the total number of searches represents 
the relative gain in performance achieved, subject to the 
tradeoffs mentioned earlier. 

In the real world, you rarely encounter a situation where 
each block in a file has an equal probability of being accessed. 
Most applications access files in a non-random way. Consider 
for example a B-Tree index file, where you access the root 
node (i.e., block) once for every random look-up operation. 
The root node thus has a much higher probability of being 
accessed than any of the leaf nodes. For such frequently-used 
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blocks, the probability of access becomes significantly greater 
than nib. 

The Caching Algorithm 

if files were accessed in a perfectly random manner, a 
simple block look-up scheme would suffice to manage a disk 
cache. You needn't order blocks in any particular way, since 
you must assume that no block will be accessed more fre¬ 
quently than any other. However, as illustrated earlier, blocks 
within most files do not have the same probability of being 
accessed. In this case, it makes sense to have a more sophisti¬ 
cated caching algorithm, one that exploits this non-random 
behavior. 

Accessing a file block once doesn't mean that the block is 
frequently used, since a block used recently will not neces¬ 
sarily be used frequently. However, 
when you access the same block a 
second time - that is, when you find it 
in the cache - the probability of a fu¬ 
ture access increases. 

A caching method should keep fre¬ 
quently- and recently-used blocks in 
hand so that you can access them easi¬ 
ly in a minimum of search time. The 
caching algorithm presented here 
places all recently-used blocks in a 
linked list of cache buffers. The algo¬ 
rithm uses the linked list to keep blocks 
in order by priority, in which the block 
occupying the list head position has the 
highest priority. Here priority indicates a 
greater probability that a block will be 
accessed again. Blocks occupying posi¬ 
tions at or near the list head will be 
found in the smallest possible search 
time. 

The algorithm maintains a count of 
the number of times a block has been 
accessed. It gives blocks that are ac¬ 
cessed two or more times a higher 
priority than a new block. A cache hit 
means that a block has been accessed 
at least twice. Each cache hit increases 
the block’s access count. The caching 
algorithm, which I have termed 
“M/LFRU” (Most/Least Frequently- and 
Recently-Used), uses the access count 
to establish a block’s position (priority) 
in the linked list It places blocks with 
the highest access counts in the most 
favored position (the MFRU position) 
near the front of the list. 

To differentiate between recently- 
and frequently-used blocks, the algo¬ 
rithm maintains access counts such that 
frequently-used blocks congregate in 
the top half of the linked list, while 
blocks used only once (i.e., blocks just 
added) tend to remain in the bottom 
half. A new block added to the cache 


receives an access count of n/2, where n again indicates the 
size of the cache in blocks. A cache hit, on the other hand, 
increases the current access count for that block by n counts, 
twice that given to new blocks. Whether you add a new 
block or locate an existing one in the cache, the block is 
removed from the linked list and then reinserted at a position 
based on its new or updated access count. 

The M/LFRU algorithm employs standard techniques for 
removing and inserting nodes in a linked list. Reinsertion 
proceeds by searching the list for a block with an access 
count less than or equal to the block that was removed. At 
the same time it searches for the correct insertion point, the 
algorithm also traverses the entire linked list and subtracts 1 
from the access count for each block (those with counts 
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Figure 2a: Searching for Block #1 
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Figure 2b: 

Removing Block #1 
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Figure 2c: 

Reinserting Block #1 
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Listing 1 (bcache.c) 

/*. 

* Author: 

* Compile options: 

* Version: 

* Date: 

* Notes: 

* 

* Source code Copyright (c) 1991 T.W. Nelson. May be 

* used only for non-commercial purposes with 

* appropriate acknowledgement of copyright. 

* .*/ 

♦include <stdio.h> 

♦include <alloc.h> 

♦include <dos.h> 

♦include "bcache.h" 

♦include <assert.h> 

//Pointer to default memory allocator function. 

//This pointer may be redirected to a customized 
//allocator via bc_setalloc() before calling 

//bc_open(). 

// 

static int (*allocp)(BCACHE *cp, int flag) ■ bc_alloc; 

int bc_open( BCACHE *cp, //-> cache descriptor 
int bmax, //number of blocks 

int bsize, //size of each block 

void (*proc)(), //processing function 
idnt_t *idnt ) //cache identifier 

{ 

/* Open and initialize block cache data 
* structures 
*/ 

int i; 
chdr_t *p; 
chdr_t *q; 

if( bmax < 2 ) 

return BC_NOBLOCKS; 

cp->idnt = idnt; 
cp->bsiz = bsize; 
cp->bmax = bmax; 
cp->proc = proc; 

cp->hits = cp->miss = cp->adds = OL; 

if( (*allocp)( cp, ALLOCATE ) == BC NOMEMORY ) 
return BC_N0MEM0RY; 

/* setup intial mfru/lfru chain .... */ 
cp->mfru = cp->head; 
p = cp->mfru; 
q = GROUND; 

for( i = bmax; i ; i-- ) { 

p->stat = RELEASE; 
p->idnt = idnt; 
p->bnum = -1L; 
p->acc « OL; 
p->prev » q; 

q = p; 

(size_t) p += BHDR_SIZE + bsize; 
q->next ■ p; 

} 


Block Cache Manager Functions 


greater than 0). Access counts for unused blocks will thus 
eventually go to 0. Frequency of use is the only thing that 
keeps a block out of the fire. Otherwise, it ages and eventual¬ 
ly is written over with a new block. A block can be accessed 
from disk once it has been deleted from cache memory, but is 
then considered a “new” block. 

All caches regardless of size will ultimately become full as 
new blocks are added. Eventually, the manager must reuse 
cache buffer space to accommodate a new block. In this case, 
the algorithm reuses the block at the end of the list, which 
has the lowest access count and priority (the LFRU block). If 
the LFRU block is marked for update, the algorithm writes its 
contents to disk before reusing it. This arrangement lets you 
defer the overhead of writing a file block to disk, simply by 
copying it to the cache instead. The “overhead" in this case 
may not involve an actual physical transfer of the data block 
to disk since the OS maintains its own disk cache. 

Figure 2 helps illustrate the M/LFRU algorithm. Figure 2a 
shows the cache linked list at some initial stage, such as 
during a search for Block 1. Since the cache presently contains 
Block 1, the cache manager will find it, score a hit, and return 
a pointer to the buffer holding the block. Before returning 
however, the manager increases the block’s access count by 
the total number of blocks in the cache, four in this case. 

The cache manager then removes the block from the 
linked list as shown in Figure 2b. Since Block 1 was also the 
LFRU block, Block 7 becomes the new LFRU block. The 
manager reinserts the removed block by first finding its cor¬ 
rect place in the remaining chain based on the block's access 
count. At the same time, it “ages" the other blocks in the 
chain by subtracting 1 from each block’s access count Figure 
2c shows Block 1 when reinserted in the list, immediately be¬ 
hind the present MFRU block. At this point, the cache manager 
returns to the calling application, which can then read the 
block’s contents into a local buffer, or write updated data 
from it to the cache. 

If a cache miss occurs, as would happen if you instead 
searched for Block 5 in Figure 2a, the manager must conse¬ 
quently reuse the LFRU block since it always has the lowest 
priority. If you marked the LFRU block for delayed processing, 
the manager will write it to disk. Otherwise, the present con¬ 
tents of the LFRU block will be trashed. The manager then 
removes the LFRU block from the list as described earlier, re¬ 
assigning it a new access count of n/2, or 2 in this case. After 
reinserting the old LFRU block (which may possibly become 
the new MFRU), you can then read the requested block from 
disk into the newly prepared cache buffer, or write data from 
your application to the same space in the cache. 

Implementing The Algorithm 

The cache manager, incorporating the M/LFRU caching algo¬ 
rithm, appears in Listing 1 (bcache.c) with its associated 
header file, bcache.h, in Listing 2. 

To set up a cache, you start by calling bc_open(). The first 
of this function’s five arguments is a pointer to a cache 
descriptor of type BCACHE (see Listing 2). The BCACHE object’s 
data items describe the cache size, keep cache statistics (hits 
and misses), point to allocated memory as well as the list 
head and tail blocks (MFRU/LFRU blocks), and contain space for 
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Listing 1 

— Cont’d 

q->next = GROUND; 

else f //deallocate memory 

cp->1fru = q; 

#if defined( SMALL ) || defined( MEDIUM ) 


free( (void *) FP 0FF(c->head) ); 

return BC NOERROR; //success 

#else 

} 

free( (void *) c->head ); 


#endif 

int bc_setalloc( int (*user_alloc)() ) 

} 

l 

/* Install a new memory allocator function 
* for be open(). 

*/ 

return BC NOERROR; 

1 

int be free( BCACHE *c ) 

allocp = user alloc; 
return BC N0ERR0R; 

{ 

/* Perform block postprocessing and free all 

} 

* cache memory 
*/ 

int be alloc( BCACHE *c. 


int flag ) //alloc/dealloc flag 

{ 

be flush(c); 

(•allocp)( c, DEALLOCATE ); 

/* Allocate cache memory on the heap using the 

c->head = c->mfru = c->lfru * (bufp t *) 0; 

* given cache parameters. 'c->head' must be 

* initialized to point to the allocated array. 

return BC N0ERR0R; 

* This is the default memory allocation method 

* using mallocf). 

} 

*/ 

int be search( BCACHE *c, //-> cache descriptor 


ulong bnum, //block # (0-based) 

size_t mem; 

bufp t **bufptr) //-> buffer to assign 

{ 

/* Search for the given block number in the cache 

if( flag == ALLOCATE ) { 

mem = (c->bsiz+BHDR_SIZE) * c->bmax; 

* list. Assign ‘bufptr 1 to point to the found 

* block buffer. Returns NOTFOUND if block number 

if((c->head * (chdr t *) mallocf mem )) *■ 

* not present. 

(chdr t *) 0 ) 

*/ 

return BC N0MEM0RY; 

} 
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Listing 1 

— Cont’d 

chdr_t *p = c->mfru; 

q->next = p; 
i 

for( ; p ! = GROUND; p » p->next ) { 


assert( c->idnt == p->idnt ); 

return BC_N0ERR0R; 

if( p->bnum == bnum ) { //found 

/ 

c->hits++; 

int be addnew( BCACHE *c, ulong bnum, bufp t **bufptr) 

p->acc += c->bmax; 

{ 

be insert( c, p ); //re-insert in chain 

/* A block was not found in the cache. Re-use the 

*bufptr = BLOCK PTR(bufp t,p); 

* lfru block by re-numbering it and reinserting in 

return BC NOERROR; 

* the cache list. Assigned access count is bmax/2. 

} 

* which gives it lower priority than a cache hit, 

) 

* since there's no a priori reason to assume it's 

* going to be accessed again. 

c->miss++; 

*bufptr = (bufp t *) 0; 

*/ 

return BC NOTFOUND; 

) 

int be insert( BCACHE *c, //-> cache descriptor 

chdr_t *p « c->lfru; 

assert( p->next «• GROUND ); 

chdr t *p ) //block to re-insert 

// process block if marked .... 

{ 

if( p->stat == MARK && c->proc ) 

/* Take the indicated block out of the chain 

(*(c->proc))( c->idnt, p->bnum. 

* and re-insert it in a new position based on 

BLOCK PTR( bufp t, p )); 

* its access count. 

p->stat = RELEASE; //free block for reuse 

*/ 

c->adds++; 

p->acc = c->bmax/2; //assign usage ent 

chdr t *q; //previous block 

p->bnum = bnum; //re-number lfru 

chdr_t *r; //next block 

if( p ■■ c->mfru ) //already mfru, return 

be insert( c, p ); //re-insert in chain 
*bufptr = BLOCK_PTR(bufp_t,p); 

return BC_N0ERR0R; 

return BC_N0ERR0R; 

//disconnect the block from the chain ... 

/ 

q = p->prev; 

int be mark( BCACHE *c, ulong bnum, size t flag ) 

r = p->next; 

{ 

assert( q != GROUND ); 

/* Find and mark/unmark a block. 

q->next = r; 

* Marking a block defers processing (writing) 

* for later. 

if( p == c->lfru ) // p is current lfru block 

c->lfru « q; // prev block is new lfru 

*/ 

else { 

chdr t *p = 0; 

assert ( r != GROUND ); //not lfru! 


r->prev = q; 

for( p = c->mfru; p != GROUND; p = p->next ) { 

} 

assert ( c->idnt «« p->idnt ); 

//Search thru remaining chain for insertion point, 

if( p->bnum ** bnum ) { //found 

//decrementing all access counts by 1 on the way... 

p->stat = flag; 

for(r = 0, q = c->mfru; q != GROUND; q = q->next) { 

return BC NOERROR; 

if( q->acc != OL ) 

) 

—(q->acc); 

) 

if( r == 0 && (p->acc >= q->acc) ) 

return BC NOTFOUND; 

r = q; //r = insertion point 

} 

) 

int be flush ( BCACHE *c ) 

//Insert 1 p 1 between 1 q 1 and 'r'. 

{ 

“+i 

-1 

II 

II 

o 

/* Process and free all marked records. 

//Insertion point is beyond current lfru. 

//Re-connect 1 p ' as the new lfru. 

*/ 

q = c->lfru; 

chdr t *p = 0; 

q->next = p; 


p->prev = q; 

i f ( !(c->proc) ) 

p->next » GROUND; 

return BC NOERROR; 

c->lfru * p; 

for( p = c->mfru; p != GROUND; p = p->next ) ( 

return BC NOERROR; 

assert( c->idnt == p->idnt ); 

) 

(*(c->proc)) ( c->idnt, p->bnum, 

BLOCK PTR( bufp t, p )); 

q » r->prev; //back up one 

p->stat = RELEASE; 

p->next = r; 
p->prev = q; 

) 

r->prev = p; 

return BC_N0ERR0R; 

if( q == GROUND ) 

/ 

c->mfru * p; //assign new mfru 

else { 

/*- End of File -*/ 
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user-defined data. bc_open()' s second and third arguments in¬ 
dicate the number of blocks in the cache and the size in 
bytes of each block, respectively. 

The fourth argument specifies a pointer to a user-written, 
block-processing function of type void, which the cache 
manager calls whenever it must reuse the LFRU block or flush 
the entire cache to disk. If you’ve marked the block for 
delayed processing instead of writing it to disk immediately, 
the manager will write the block to disk before reusing it 
Errors that arise during execution of the processing function 
should be handled by the calling application; the cache 
manager assumes no responsibility. Note that the pointer to 
the processing function can be NULL if you don’t want the 
manager to perform any block processing. 

bc_open()'s fifth argument designates a pointer to a 
“cache identifier" of unspecified nature. Since a single applica¬ 
tion might have multiple caches open at once, this argument 
enables the application to identify a particular cache. The 
manager passes this cache id to the block processing function. 
However, an application may not require an id or perform 
block processing at all, in which case you simply pass a NULL 
pointer. 

bc_open() allocates cache memory by calling a default 
memory allocator, bc_alloc(), via the pointer (*allocp)(). 
You can redirect this pointer to a customized allocator func¬ 
tion by calling bc_setalloc() before calling bc_open(). Any 
user-written memory allocator must receive a pointer to a 
BCACHE descriptor and assign bcache.heod to point to the allo¬ 
cated memory, if the function fails to allocate memory, it 
should return the macro BC_NOMEMORY 
and set bcache.heod to NULL. 

Since each cache block of bsize 
bytes is preceded by a header (struct 
cchdr), you determine memory re¬ 
quirements for the cache by computing 

(bsize + sizeof(struct cchdr)) * bmax 

where bmax is the number of cache 
blocks. 

Since the default memory allocator 
bc_alloc also handles deallocation, 
your customized allocator function 
should also include a method to deallo¬ 
cate memory. Having allocp point to 
one function that performs both opera¬ 
tions obviates the need for separate 
pointers to two functions. To free cache 
memory, an application calls bc_free(), 
which passes control via allocp to the 
deallocator function. The deallocator 
need only free whatever memory was 
allocated when you opened the cache, 
since the remainder of bc_free() hand¬ 
les the other housekeeping details. 

The rest of bc_open() sets up the 
linked list, implemented via the block 
headers (Listing 2) that contain pointers 
to previous and next header objects. 


Along with the block status, block number, and access count, 
the header also contains a copy of the cache identifier, idnt. I 
included this in the header only for purposes of insuring that 
the cache descriptor points to the correct block headers, 
verified by assert () calls in the code. You can disable calls to 
assert () at compile time by tide fine- ing NDEBUG. 

Up And Running 

In actual operation, the first function you call is usually 
bc_search(), which searches for a given block number in the 
cache list. At application start-up, the cache will be empty and 
bc_search() will return BC_N0TF0UND. The frequency of hits 
increases as more blocks are added to the cache. As described 
earlier, bc_search() increases a block’s access count by bmax 
blocks when a cache hit occurs. 

To reinsert a block in the cache list, the manager calls 
bc_insert(). The function takes no action if the block is al¬ 
ready in the MFRU position. Otherwise, it removes the 
specified block from the list and searches for the block’s new 
position, based on its access count. It also traverses the entire 
list in order to age the blocks by decreasing each block’s ac¬ 
cess count by one. The only exception to normal reinsertion 
comes when the block becomes the new LFRU, the same 
position it started in. If the MFRU and/or LFRU blocks change 
during reinsertion, bc_insert() reassigns the corresponding 
pointers in the BCACHE descriptor. 

bc_search () assigns a pointer to point to the found cache 
buffer. It sets this pointer to NULL if the block wasn’t found. 
bc_search() also records cache hits and misses in the BCACHE 
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Listing 2 (bcache.h) 


/* 

* Source code Copyright (c) 1991 T.W. Nelson. May be 

* used only for non-commercial purposes with 

* appropriate acknowledgement of copyright. 

*/ 

lifndef _BCACHE_H 

Idefine _BCACHE_H 

lifndef _STDI0_H 
linclude <stdio.h> 
lendif 

typedef unsigned long ulong; 

typedef struct cchdr far chdr_t; //block hdr object 
typedef void far bufp_t; //buffer contents 

typedef void far idnt_t; //cache id type 

/* Block buffer header. This immediately precedes each 

* block buffer in memory. Total memory required for 

* each block is therefore: 

* (sizeof(struct cchdr) + bsiz) bytes 
*/ 


Header for Block Cache Routines Using M/LFRU Algorithm 
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struct cchdr { 
chdr_t *next; 
chdr_t *prev; 
size_t stat; 
idnt_t *idnt; 
ulong bnum; 
ulong acc; 
char bufp; 

}; 


//next block header 
//prev block header 
//block status 
//cache id for proc() 
//block number 
//access count 
//&bufp -» buffer start 


/* Cache descriptor type. Storage for one of these is 
* allocated by the application for each cache opened. 
*/ 

typedef struct { 
idnt_t *idnt; 
int bsiz; 
int bmax; 
ulong hits; 
ulong miss; 
ulong adds; 


void 

chdr_t 

chdr_t 

chdr_t 

size_t 

size t 


//cache id (matches cchdr.idnt) 
//block length in bytes 
//max number blocks in cache 
//bc_search() finds 
//bc_search() misses 
//number calls to bc_addnew() 
//block processing function ... 
*proc)(idnt_t *, ulong, bufp_t *); 

*mfru; //mfru (newest) block 
//lfru (oldest) block 
//-> allocated cache memory 
//user-defined data areas 


) BCACHE; 


*lfru; 

*head; 

userl; 

user2; 


//BCACHE object 


Idefine MARK 1 //mark blocks for processing 

Idefine RELEASE 0 //release (unmark) for reuse 

Idefine ALLOCATE 0 //allocate memory 

Idefine DEALLOCATE 1 //deallocate memory 

Idefine GROUND ((chdr_t *) -1) //end of chain 
Idefine BHDR_SIZE sizeof(struct cchdr) 

Idefine BLOCK PTR(type,hp) ((type *) &(hp->bufp)) 


//Function return values ( >= 0 ) .... 

Idefine BC_N0TF0UND 1 //block not found 

Idefine BC NOERROR 0 //no error 


//Function error values ( < 0 ) .... 

Idefine BC_NOBLOCKS -1 //need >= 2 blocks 

Idefine BC_N0MEM0RY -2 //insufficient memory 

//prototypes . 

int bc_open( BCACHE *c, int bmax, 

int bsize, void (*proc)(), idnt_t *idnt); 
int bc_alloc( BCACHE *c, int flag ); 
int bc_search( BCACHE *c, ulong bnum, bufp_t **bufptr); 
int bc_insert( BCACHE *c, chdr_t *p ); 
int bc_addnew( BCACHE *c, ulong bnum, bufp_t **bufptr); 
int bc_mark( BCACHE *c, ulong bnum, size_t flag ); 
int bc_flush( BCACHE *c ); 
int bc_free( BCACHE *c ); 
int bc_setalloc( int (*user_alloc)() ); 

lendif // _BCACHE_H 

/*-End of File-*/ 
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object you passed to it. The hit and miss record lets you 
gauge the cache’s relative performance. 

If a call to bc_search() comes up dry, your application will 
usually need to call bc_addnew(). This function reuses the 
LFRU block, making way for a new block that your application 
will need to read from disk. As detailed earlier, this function 
first writes the LFRU block to disk if you marked it for delayed 
processing. It gives the block an access count of bmax/2, half 
as large as previously-accessed blocks. Like bc_search(), 
bc_addnew() calls bc_insert() to reposition the LFRU block in 
the list and then assigns a pointer to point to the cache buffer 
of the reinserted block. 

The remainder of the cache manager concerns itself with 
housekeeping. bc_mark() flags any block in the cache to 
protect it from being overwritten when the block must be 
reused. However, you won't need to mark any blocks or use a 


customized block processing function if you follow a write- 
through strategy, where you immediately write to disk any 
block you add to the cache, a procedure that ensures maxi¬ 
mum protection for your files. bc_flush() traverses the entire 
list and processes all marked blocks, if any. You call this func¬ 
tion before closing the cached file. 

Portability was one of my major concerns in developing 
the cache manager code. The manager uses only two outside 
library functions, malloc() and free(), which it calls by 
default. However, you can re-direct memory allocation/deal¬ 
location to any function desired. 

I also kept compiler-specific keywords to a minimum. I 
wrote macros to hide the usage of certain unavoidable 
keywords, most notably far. So far, I have compiled the code 
only with Turbo C++, but porting to other compilers should not 
be a problem. To provide more uniformity for calling applications, 


Listing 3 (bfile.c) 

/*. 

lseek( ff->fd, (long) (bnum * ff->cac.bsiz), 

* Author: T.W. Nelson 

SEEK SET ); 

* Compile options: 

write file( ff->fd, p, ff->cac.bsiz ); 

* Version: 1.00 

* Date: 12-Sep-1991 

) 

* Notes: 

BFILE *open b( const char ‘path, //file pathname 

* 

int bmax, //Iblocks in cache 

* Source code Copyright (c) 1991 T.W. Nelson. May be 

int bsize, //blocksize, bytes 

* used only for non-commercial purposes with 

int mode ) //caching mode 

* appropriate acknowledgement of copyright. 

( 


/* Open a block-cached file. Pathname is saved in 
* the BFILE descriptor: the file need not be pre- 

#include <stdio.h> 

* existent. Cache id is set up as a pointer to the 

#include <io.h> 

* malloced BFILE object. Returns pointer to BFILE 

linclude <fcntl .h> 

* object or null if we're out of memory. 

#include <sys\stat.h> 

#include <alloc.h> 

*/ 

linclude <string.h> 
linclude <errno.h> 

BFILE *ff; 

linclude <assert.h> 

if( (ff = (BFILE *) malloc( sizeof(BFILE) )) 

linclude "bfile.h" 

-» (BFILE *) 0 ) { 

errno = ENOMEM; 

//Utility function prototypes (in dos.c) . 

return (BFILE *) 0; 

void move_mem( bufp_t *dest, bufp_t *src, 

size t nbytes ); 

} 

int read file( int fd, bufp t *buf, size t nbytes ); 

assert( strlen(path) < MAXPATHNAME ); 

int write fi 1 e ( int fd, bufp t *buf, size t nbytes ); 

strcpy( ff->fname, path ); 
ff->fd = -1; 

/*.*/ 

static void fproc(idnt t *idnt, //cache id 

ff->mode = mode; 

ulong bnum, //block number 

lifdef COMPILE EMM 

bufp t *p) //-> cache buffer 

if( emm check() == 0 ) 

{ 

be setalloc( emm allocate ); 

/* Free block processing (writing) routine. Called 
* when cache buffer space must be reused for a new 

lendif 

* block. ' idnt 1 was set up by open b() as a 

if( be open( &(ff->cac), bmax, 

* pointer to a BFILE object for the file. If the 

bsize, fproc, (idnt t *) ff ) == BC NOMEMORY) ( 

* file was not pre-existent, one will be created 

free( (void *) ff ); 

* here when (and if) the data overflows the cache. 

ff->mode = 0; 

*/ 

errno = ENOMEM; 
return (BFILE *) 0; 

BFILE *ff = (BFILE *) idnt; 

) 

if( ff->fd == -1 ) { //file doesn't exist .... 

ff->mode |= IS OPEN; 

if((ff->fd = open(ff->fname,0 CREAT+0 BINARY, 

ff->fd = open( ff->fname, 0 RDWR + 0 BINARY ); 

S IREAD+S IWRITE)) == -1) 


return: //error 

} 

return ff; 

) 

Extended File 

I/O Interface 
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Listing 3 

— Cont’d 

int read b( BFILE *ff, //-> BFILE descriptor 


void *buf, //destination buffer 

if( ff->mode & WRITE THRU ) 

ulong blockno ) //block# to read 

fproc( (idnt t *) ff, blockno, bufptr ); 

{ 

else 

/* Read a block from a cached file. The cache is 

be mark( &(ff->cac), blockno, MARK ); 

* checked for the block; if found, it's copied 

* directly to 'buf 1 . Otherwise, the lfru block 

lifdef COMPILE EMM 

* is re-used for the new block, to be read from 

emm unmap pages( &(ff->cac) ); 

* disk. 

*/ 

lendif 

return 0; 

bufp_t ‘bufptr; 

} 

if( !(ff->mode S IS OPEN) ) { 

int close b( BFILE *ff ) 

errno = EBADF; 

( 

return -1; 

/* Close down a block-cached file, freeing 

} 

* all cache memory. The file is not 

* deleted. 

lifdef COMPILE EMM 

*/ 

emm map pages( &(ff->cac) ); 


lendif 

if( !(ff->mode & IS OPEN) ) ( 


errno = EBADF; 

if( be search( &(ff->cac), blockno, 

return -1; 

&bufptr) == BC_N0TF0UND ) { 

bc_addnew( &(ff->cac), blockno, &bufptr); 

) 

lifdef COMPILE EMM 

//read block from file into cache . 

emm map pages( &(ff->cac) ); 

lseek( ff->fd, (long) (blockno * 

lendif 

ff->cac.bsiz), SEEK SET ); 


if( read fi1e( ff->fd, bufptr. 

be flush( &(ff->cac) ); 

ff->cac.bsiz ) -1 ) 

close( ff->fd ); 

return -1; 

ff->mode &= ~IS_0PEN; 

/ 

lifdef COMPILE EMM 

//move block from cache to application buffer .... 

emm unmap pages( &(ff->cac) ); 

move_mem( (bufp_t *) buf, bufptr, ff->cac.bsiz ); 

lendif 

lifdef COMPILE EMM 

be free( &(ff->cac) ); 

emm unmap pages( 8(ff->cac) ); 

free( (void *) ff ); 

#endif 

return 0; 

return 0; 

} 

} 

int remove b( BFILE *ff ) 

int write b( BFILE *ff, //-> BFILE descriptor 

{ 

void *buf, //source buffer 

/* Close and delete a cached file */ 

ulong blockno ) //block# to write 

f 

if( !(ff->mode & IS OPEN) ) { 

/* Write a data block to a cached file. If using a 

errno = EBADF; 

* write-through strategy, the block is written 

return -1; 

* immediately to the file after copying to the 

* cache. Otherwise, the block is marked for 

) 

* delayed processing. 

lifdef COMPILE EMM 

*/ 

emm_map_pages( &(ff->cac) ); 
lendif 

bufp t *bufptr; 

be flush( &(ff->cac) ); 

if( !(ff->mode & IS OPEN) ) { 

close( ff->fd ); 

errno » EBADF; 

remove( ff->fname ); 

return -1; 

ff->mode &= ~IS_0PEN; 

) 

lifdef COMPILE EMM 

#ifdef COMPILE EMM 

emm unmap pages( &(ff->cac) ); 

emm map pages( &(ff->cac) ); 

lendif 

lendif 

be free( 8.(ff->cac) ); 

if( be search( &(ff->cac), 

free( (void *) ff ); 

blockno, Jbufptr) == BC_N0TFOUND ) { 

be addnewf &(ff->cac), blockno, &bufptr); 

} 

return 0; 

} 

//move block from application buffer to cache _ 

move mem( bufptr, (bufp_t *) buf, ff->cac.bsiz ); 

/*-End of File-*/ 
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all the manager functions return type 
int. The functions return codes (see 
Listing 2) that are 0 or positive to indi¬ 
cate normal conditions, and negative to 
indicate error conditions. 

A File I/O Interface 

The cache manager is not respon¬ 
sible for transferring data between your 
application and the cache, or between 
the cache and the disk file. The cache 
manager simply manipulates pointers to 
nodes in a linked list and keeps 
priorities straight. It's up to you to up¬ 
date any data you manipulate in 
memory so that your disk file remains 
secure. 

Although an application can call any 
of the caching functions directly, doing 


so would require your program to know 
the cache’s inner workings in some 
detail. In keeping with a layered, 
modular approach, I designed a file I/O 
interface, (Listing 3), which surrounds 
the cache manager. The interface al¬ 
lows you to read and write blocks from 
the file without knowing how the cach¬ 
ing functions operate. 

The interface inherits the cache 
descriptor object (BCACHE), at least in a 
limited sense. The new BFILE object 
(Listing 4) adds three data items to the 
descriptor: a copy of the filename string, 
the file handle, and a word to keep 
status information. 

The function open_b(), which opens 
a block-cached file, takes four argu¬ 
ments: a file pathname string, a block 
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Listing 4 (bfile.h) 


Source code Copyright (c) 1991 T.W. Nelson. May be 
used only for non-commercial purposes with 
appropriate acknowledgement of copyright. 


lifndef 

Idefine 


BFILE_H 
"BFILE H 


lifndef _BCACHE_H 

linclude "bcache.h" 
lendif 

Idefine MAXPATHNAME 80 

//descriptor object for a block-cached file ... 
typedef struct { 

char fname[MAXPATHNAME]; //path, file name 
int fd; //DOS file descriptor 

size_t mode; //mode and/or status flags 

BCACHE cac; //cache descriptor 

) BFILE; 

//values for 'mode' field in BFILE object . 

Idefine IS_0PEN 0x0001 //open_b() successful 

Idefine WRITE_THRU 0x0002 //write-thru strategy 

//prototypes . 

BFILE *open_b( const char *path, int bmax, 

int bsize, int mode ); 

int read_b ( BFILE *ff, void *buf, ulong blockno ); 
int write_b( BFILE *ff, void *buf, ulong blockno ); 
int close_b( BFILE *ff ); 

//prototypes from emm module (emm.c) .... 
void emm_setflag( int flag ); 
void emm_map_pages( BCACHE *cp ); 
void emm_unmap_pages( BCACHE *cp ); 
int emm_allocate( BCACHE *cp, int flag ); 
int emm_check( void ); 

lendif // BFILE H 


/*-End of File 
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Listing 5 (dos.c) 


/*.-. 

* Author: T.W. Nelson 

* Compile options: 

* Version: 1.00 

* Date: 07-Sep-1991 

* Notes: 

* 

* Source code Copyright (c) 1991 T.W. Nelson. May be 

* used only for non-commercial purposes with 

* appropriate acknowledgement of copyright. 

* .*/ 


linclude <errno.h> 
linclude "bfile.h" 

Ipragma inline //use inline assembly 

//Intersegment memory-move function. 

void move_mem( bufp_t *dest, //to destination 

bufp_t *src, //from source 

size_t nbytes ) //Ibytes to move 

{ 

asm push ds 
asm push es 
asm Ids si,src 
asm les di,dest 


Implementation-Specific Code (DOS) for BFILE Module 


The $25 Network 
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* Connect 2 or 3 PCs, XTs, ATs, PS/2s 
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* Needs only 15K of ram 

* Just S25 per network, NOT PER NODE! 

* Replace all file transfer software 

* Version 2.3M now has TinyMAIL 

* OVER 20,000 SOLD WORLDWIDE 


Skeptical? We make believers! 


Information Modes 

P.O. Drawer F 
Denton, TX 76202 
817-387-3339 Techline 

1-800-628-7992 Orders 



asm mov cx,nbytes 
asm cld 
asm shr cx,l 
asm rep movsw 
asm jnc exit 
asm movsb 
exit: 

asm pop es 
asm pop ds 


//convert to word count 

//done if no carry 
//move odd byte 


//Read a file into a far buffer. Returns 
//# bytes read, or sets 'errno' and returns -1 
//on error. 

int read_file( int fd, //file handle 

bufp_t *buf, //destination buffer 
size_t nbytes ) //#bytes to read 

{ 


asm push ds 
asm mov ah,03fh 
asm mov bx,fd 
asm mov cx,nbytes 
asm Ids dx,buf 
asm int 21h 
asm pop ds 
asm jnc exit 
errno * EBADF; 
asm cmp ax,6 
asm je error 
errno = EACCES; 
error: 

asm mov ax,-l 
exit: 


//DOS read file 
//file handle 
//xfer count 
//destination 


//read OK 

//assume bad handle 
//invalid handle? 

//yes 

//no, permission denied 
//return -1 on error 


return _AX; 

) 


//Write a file from a far buffer. Returns 

//# bytes written, or sets 'errno' and returns -1 

//on error. 


int write_file( int fd, 
bufp_t 
size_t 

{ 

asm push ds 
asm mov ah,40h 
asm mov bx.fd 
asm mov cx,nbytes 
asm Ids dx.buf 
asm int 21h 
asm pop ds 
asm jnc exit 
errno = EBADF; 
asm cmp ax,6 
asm je error 
errno - EACCES; 
error: 

asm mov ax,-l 
exit: 

return _AX; 

) 

/*-End of File — 


//file handle 
*buf, //source buffer 
nbytes ) //Ibytes to write 


//DOS write file 
//file handle 
//xfer count 
//source 


//read OK 

//assume bad handle 
//invalid handle? 

//yes 

//no, permission denied 
//return -1 on error 


*/ 
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count and length for the cache to be opened, and a mode or 
flag word. At present the only possible value for mode is 0 or 
the macro URITE_THRU, defined in Listing 4. open_b() allocates 
memory for a BFILE object using malloc(), then opens a 
cache by calling bc_open(). Before returning, open_b() at¬ 
tempts to open the specified file, assigning the returned hand¬ 
le to bcache.fd. If the file does not exist, the returned value 
will be -1, which in this case is not an error. It simply means 
the file will be created later only when a program produces 
enough data to overflow the cache. This arrangement would 
be useful for some types of scratch files, such as compiler 
temporary tables. If necessary, an application could inspect 
the returned handle if a file must be present. Finally, function 
open_b() returns a pointer to the allocated BFILE object. 

You read and write file blocks using read_b() and 
write_b(), respectively. Both functions receive a pointer to a 
BFILE object, a pointer to a read/write buffer, and a specified 
block number (zero based). Both functions access the disk if 
the desired block was not found in the cache, as outlined 


earlier. The functions also use DOS-specific, customized ver¬ 
sions of read(), write(), and memcpyf) (see Listing 5) to ac¬ 
cess data in far buffers, regardless of the chosen memory 
model. 

I included all the implementation-specific code in Listing 5 
to support modifications when needed. I find inline assembly 
a good way to get the best from both C and assembly in the 
same module, as long as portability is not a concern. 

Caching With Expanded Memory 

To illustrate the caching code’s flexibility, I wrote emm.c 
(Listing 6), which uses the PC's expanded memory to hold all 
cache memory. I changed none of the cache manager code 
itself. The Expanded Memory Manager (EMM) interface consists 
of functions that allocate and deallocate expanded memory 
and transfer allocated pages in and out of the EMM page 
frame before your application calls the cache manager. 

The cache manager is not aware it is using expanded 
memory. Instead, functions in emm.c manipulate expanded 


Listing 6 (emm.c) 


/*. 

asm mov al ,bl 

//set physpage 

* Author: T.W. Nelson 

asm int 67h 


* Compile options: 

asm inc bx 

//to next logpage 

* Version: 1.00 

asm loop map in 


* Date: 09-Sep-1991 

map x: 


* Notes: 

* 

* Source code Copyright (c) 1991 T.W. Nelson. May be 

return; 

1 


* used only for non-commercial purposes with 

void emm unmap pages( BCACHE *cp ) 

* appropriate acknowledgement of copyright. 

* . */ 

{ 

/* Restore page mapping 

context ... */ 


size t emm handle; 


linclude “bcache.h" 

asm cmp EMM flag.O 

//expmem in use? 

Ipragma inline 

asm je unmap x 

//no, bypass 


emm handle = cp->handle; 

static char EMM dev[] = "EMMXXXXO"; 

asm mov ah,48h 

//EMS restore page map 

static int EMM flag = 1; //run-time emm usage switch 

asm mov dx,emm handle 


//... default is ENABLED 

asm int 67h 



unmap x: 


Idefine handle userl //rename user data areas 

# define npages user2 //in BCACHE object 

return; 

1 


void emm setflag( int flag ) 

/ 

int emm allocate( BCACHE * 
/ 

cp, int flag ) 

i 

/* Turn expmem usage on/off. */ 

/* Allocate expanded memory for the block cache. 


* Called by be open() 

if using expmemory. 

EMM flag = flag; 

\ 

*/ 



chdr t ‘page frame; 


void emm map pages ( BCACHE *cp ) 

/ 

size_t pages needed, bytes mem, emm handle; 

/* Save current EMM page-mapping context, then 

asm cmp flag,ALLOCATE 

//allocate? 

* map our cache pages into the physical page frame. 

asm jne emmalloc 4 

//no, deallocate 

*/ 

bytes mem * (cp->bsiz+BHDR SIZE) * cp->bmax; 


asm mov ax,bytes mem 

//set dividend loword 

size t emm handle, pages; 

asm mov dx,0 

//clear dividend hiword 

asm cmp EMM flag,0 //expmem in use? 

asm mov bx,16384 

//16k page size divisor 

asm je map x //no, bypass 

asm div bx 

//ax == number pages 

emm handle = cp->handle; 

asm or ax,ax 

I/O quotient? 

pages = cp->npages; 

asm jz emmal loc 1 

//yes, adjust 

asm mov ah,47h //EMS save page map 

asm or dx,dx 

//any remainder? 

asm mov dx.enm handle 

asm jz emmalloc 2 

//no, bypass 

asm int 67h 

emmalloc 1: 


asm mov cx,pages //set loop counter 

asm inc ax 

//adjust for remainder 

asm xor bx.bx //start at logpage 0 

emmalloc 2: 


map in: 

asm cmp ax,4 

//check page request 

asm mov ah,44h //EMS map expmemory page 
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memory so that the entire cache linked list is mapped into 
the page frame before the caching functions are called. List 
head and tail pointers in the BCACHE object thus point to cor¬ 
rect data, even when an application has two or more cached 
files open. For simplicity, all code in Listing 6 assumes that a 
cache occupies the entire 64K page frame of four pages, even 
though the actual size of a cache list may occupy only a por¬ 
tion of one page. More efficient designs are possible, but the 
necessary bookkeeping would rob the design of simplicity. 

The most difficult aspect of using expanded memory is 
keeping track of what data items belong to what page num¬ 
bers and memory handles. This problem needs careful han¬ 
dling, especially when you have several handles in one ap¬ 
plication. You certainly don’t want a third-party library func¬ 
tion to map its own privately-allocated pages into the EMM 
page frame, only to find out that your data is no longer where 
you expected it when the function returns. 

Fortunately, the Expanded Memory Specification includes 
two functions that can help reduce this potential source of 
confusion. Functions 47h and 48h of EMS 3.0 save and restore 
the page-frame mapping state. Some references state that 
you use these functions in interrupt handlers and device 
drivers that must access expanded memory, generally without 
the knowledge of an application. You can also use these func¬ 
tions in everyday code to perform a lot of the housekeeping 
chores involved with expanded memory. Any module that 
uses expanded memory must save and then restore the con¬ 
tents of the page frame, much like an application that steals 
an interrupt must put it back when it finishes. Client code 
thus remains protected. 


A potential problem with this scheme centers on when 
and where you map and unmap (save and restore) the page 
frame state. The called function normally saves the mapping 
state on entry and restores it on return. But if you must call 
this function repeatedly, say, in a tight loop, the overhead 
might become too high for time-critical code. You would be 
better off handling the mapping state at the caller's level. 

The code in Listing 3 offers no permanent solution (see 
functions read_b() and writeb()). Both functions simply save 
the mapping state on entry (em_map_pages () in Listing 6) and 
restore it on return (enw_unmap_pages ()), an action that 
should serve for most situations. Any caller will thus have its 
own data currently in the page frame protected from unan¬ 
ticipated changes. Note that you can control the module’s 
runtime access to expanded memory by a compile-time 
#define in Listing 3. In addition, a switch ( EMM_flag in Listing 
6) enables or disables the expanded memory functions at run¬ 
time. You set the switch by calling em_setflag() (Listing 6) 
before making any other EMM calls. By default, the switch is 
always ON. Turning the switch OFF ensures that a check for 
the expanded memory driver ( enm_check()) will return nega¬ 
tive, thus causing the manager to use regular (heap) memory. 
Function open_b() in Listing 3 redirects memory allocation to 
em_allocate() , Listing 6, before it calls bc_open(). 

Testing Cache Operation 

Listing 7 contains btest.c, a test bed that demonstrates 
the caching algorithm, as well as verifies the integrity of a 
sample cached file during block reads and writes. Normal 
word processor or text files work best since you can easily 


Listing 6 — Cont’d 


asm ja emmalloc_3 //too many pages 

asm mov pages_needed,ax 

asm mov ah,4lh //EMS get page frame seg 

asm int 67h 

asm mov word ptr page_frame[2],bx 
asm mov word ptr page_frame[0],0 
asm mov bx,pages_needed 

asm mov ah,43h //EMS allocate pages 

asm int 67h 

asm or ah,ah //allocated? 

asm jnz emmalloc_3 //no, quit 

asm mov bytes_mem,dx //save emm handle 

cp->handle = bytesjnem; 

cp->npages = pages_needed; 

cp->head - page_frame; 

goto emmalloc_5; 

emmalloc_4: //deallocate memory 

emm_handle = cp->handle; 
asm mov ah,45h //EMS release handle 

asm mov dx,emm_handle 
asm int 67h 

emmalloc 5: 

return BC_N0ERR0R; 

emmalloc 3: 

return BC_N0MEM0RY; 

I 

int emm_check( void ) 

( 

/* Test for presence of functioning EMM. 

* If EMM not available, 'EMM_f1ag' is reset to 


* OFF (== 0). Function returns 0 if EMM is 

* available and functioning, -1 if not or 

* 'EMM flag' is OFF. 

*/ 


asm cmp EMM_flag,0 

//use expmem? 

asm je emm_error 

//no, return error 

asm push ds 


asm mov dx,offset EMM dev 

asm mov ax,seg EMM_dev 


asm mov ds,ax 


asm mov ax,3d00h 

//DOS open file, read only 

asm int 21h 


asm pop ds 


asm jc emm_error 

//EM driver not present 

asm mov bx.ax 

//bx <- open device handle 

asm mov ax,4407h 

//DOS IOCTL device status 

asm int 21h 


asm jc errm_error 

//IOCTL failure 

asm or al,al 

//device ready? 

asm jz emm_error 

//al *» 0 if not 

asm mov ah,3eh 

//DOS close handle 

asm int 21h 


asm mov ah,40h 

//check EMM status 

asm int 67h 


asm or ah,ah 

//op status OK? 

asm jnz emm_error 

//no, exit 

return 0; 

//return EMM OK 


emm_error: 

emm_setflag(0); //disable EMM usage 

return -1; 


/* .... End of File 
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check if hundreds of random block reads and writes have 
damaged the file (make a copy first), btest.c uses ran¬ 
domize () and randomQ from the Turbo C++ runtime library 
to read and write a large number of blocks from the file in a 
short time. You can then see the effect various cache sizes 
have on cache hit rates, relative to the size of the file. You 
can also use the program to test the effects of removing and 
replacing blocks in the cache list one at a time. 

Conclusions 

Some readers can probably find ways to improve the cach¬ 
ing algorithm. If so, I would appreciate hearing about them. 
Perhaps there exists a better method of adjusting access 
counts based on a detailed theoretical analysis of the algo¬ 
rithm. Others may feel that traversing the list to reinsert new 


blocks (in bc_insert()) represents too much overhead. Why 
can’t bc_insert() simply reattach all blocks at the MFRU end, 
forgetting about access counts entirely? In this case, the algo¬ 
rithm is referred to as MRU/LRU (Most/Least Recently Used). Its 
advantages are relative simplicity and slightly less code over¬ 
head. However, I believe that you will lose some efficiency. 
The MRU/LRU algorithm gives equal weight to all accessed 
blocks and as such does not truly take full advantage of non- 
random file access. □ 

Reference 

Deikman, Alan. “A RAM-Cache Manager in C.” Dr. Dobb's 
Journal, 12(12): 30-37. (December 1987). A good discussion, but 
somewhat awkward implementation of an MRU/LRU cache 
manager. 


Listing 7 (btest.c) 

/*.- . 

return 0; //quit 

* LISTING 7 

case 1: 

* 

do random(); //random read/write 

* Filename: btest.c 

return 1; 

* Summary: test cache file i/o interface 

case 2: 

* Author: T.W. Nelson 

printff "Enter block to read: " ); 

* Compile options: 

scanf( "%ld", &num ) ; 

* Version: 1.00 

if( (int) num >= Fblocks ) 

* Date: 05-Sep-1991 

printf("Blockf out of range\a\n“); 

* Notes: 

else 

* 

read b( bf, (void *) buf, (ulong) num); 

* Source code Copyright (c) 1991 T.W. Nelson. May be 

return 1; 

* used only for non-commercial purposes with 

case 3: 

* appropriate acknowledgement of copyright. 

if( num != -1L ) ( 

*.*/ 

write b( bf, (void *) buf, (ulong) num); 

♦include <stdio.h> 

printf("Block %ld written\n", num ); 

) 

♦include <stdlib.h> 

return 1; 

♦include <time.h> 

default: 

♦include <bios.h> 

return 1; 

♦include <io.h> 

I 

♦include "bfile.h" 

) 

#define BMAX 8 //#cache blocks 

void print status(void) 

♦define BSIZE 512 //block size in bytes 

( 

BFILE *bf; 

chdr_t *p • 0; 

char buf[BSIZE]; 

printf("Cache stats: hits=%ld miss=%ld adds=%ld\n”. 

int Fblocks; 

bf->cac.hits, bf->cac.miss, bf->cac.adds ); 

void do random(void) 

printf ( "Blockf Acc Stat MFRU=%ld LFRU=%ld\n", 
bf->cac.mfru->bnum, bf->cac.lfru->bnum); 

I 

printf ( " .\n" ); 

//read and write random blocks from file . 


long blockno; 

for( p = bf->cac.mfru; p !* GROUND; p = p->next ) ( 

printf( "Random block read/write test routine.\n K ); 

printf( "%-71d %-51d %-4u\n", p->bnum, 
p->acc. 

printf( "Press any key to quit...\n\n" ); 

p->stat ); 

randomize(); //initialize random# generator 

) 

whi1e( bioskey(l) ** 0 ) { 

) 

blockno * random( Fblocks ); 

main( int argc, char **argv ) 

read b( bf, (void *) buf, (ulong) blockno ); 

{ 

write b( bf, (void *) buf, (ulong) blockno ); 

if( argc <■ 1 ) ( 

} 

printf("Need file name argument..An"); 

bioskey(O); //remove keypress from buffer 

return 1; 

) 

int btest(void) 

/ 

bf - open_b( argv[l], BMAX, BSIZE, 0); 

Fblocks « (int) (filelength( bf->fd ) / BSIZE); 

int option; 

while( btest() ) 

static long num » -1L; 

print_status() ; 

printf("\n0=quit, l=auto r/w, 2-read, 3=write: ”); 

close b( bf ); 

scanf( "%d", &option ); 


switch ( option ) 

/ 

return 0; 

) 

case 0: 

/*-End of File-*/ 
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Creating Masked Edit Controls 

Ron Burk 





Whenever l learn a new programming 
environment, I usually end up spending time 
reinventing some tools of past programming 
environments. That has certainly been true 
for me as 1 learn Windows. Although I am 
more than willing to do things “the Windows 
way”, I am less willing to give up 
functionality that has proven useful in the 
past. 

An example of recreating old tools in 
Windows is the masked edit control. My user 
interfaces often use fixed-length input data, 
such as phone numbers, zip codes, state ab¬ 
breviations, and so on. With character-based 
user interfaces, I am used to specifying such 
input fields with simple patterns or masks, 
such as 

(nnn) nnn-nnnn 

for a telephone number. In this mask, 
the alphabetic characters (only ‘n' here) 
specify what characters are legal (‘n’ 
means 'O' through '9') and all the 
other characters are displayed as 
literal text. 

The Windows API does not 
directly provide such tools for enter¬ 
ing fixed-length data, nor does the 
Common User Access Advanced In¬ 
terface Design Guide shed much 
light on how such input fields 


should behave. This article looks at the 
problems involved in subclassing Windows 
edit controls to create simple masked edit 
controls for fixed-length data. The code is 
written in Turbo Pascal for Windows (TPW), 
but the same issues arise no matter what 
language you use. 

Subclassing Edit Controls 

The Windows edit control is the easiest 
place to start building a masked edit control. 
A Windows edit control is a child window 
that can handle multiple, scrollable text 
lines. You might be tempted to just build 
your own masked edit control from scratch 
rather than extending the standard Windows 
edit control. Before you do, consider all of 
the little details that edit controls handle, 
work that you would have to reproduce. 

Edit controls have to paint text directly 
on the screen and in the correct positions 
(proportional fonts make that a little trickier). 
Edit controls have to keep a copy of the text 
they contain and repaint their client region 
at the correct times. Edit controls have to 
handle several special keystrokes that move 
the cursor within the control, select text, 
delete text, cut and copy selections to the 
clipboard, and insert text from the clipboard. 
All in all, you are usually well-advised to use 
subclassing whenever possible, instead of 
starting from scratch. 


Ron Burk has a B.S.E.E. from the University of Kansas and has been a programmer 
for the past 10 years. You may contact him at Burk Labs, P.O. Box 3082, Redmond, 
WA 98073-3082. CIS: 70642,2662. 
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Subclassing involves creating your 
own windows callback function and 
stuffing its address into the correct win¬ 
dow attribute of the edit control. Your 
callback function can then pick the 
Windows messages it wants to handle 
and pass all other messages on to the 
original window callback function. Last 
month's article by Brian Wyld showed 
how to do this in C. in Turbo Pascal for 
Windows, the programming environ¬ 
ment handles most of the details. 

To subclass an edit control in Turbo 
Pascal for Windows, you use inheritance 


Figure 1 



An Example of Masked Edit Controls 


to derive a new type from the supplied 
TEdit object type. In your new type, 
you override the virtual functions that 
correspond to the messages you want 
to intercept and handle yourself. You 
can always invoke the previous window 
message handler by calling DefUndProc(). 

In fact, you are better off using Def- 
UndProcf) whenever possible and just 
adding extra actions before or after call¬ 
ing it. Otherwise, you have to make 
very sure that you take care of all the 
work that DefUndProc() used to do. For 
example, if you decide to handle the 
arrow keys completely in your own 
code without calling DefUndProc(), 
then you have to detect the status of 
the shift key and extend the current 
text selection when the shift key is 
down while an arrow key is pressed. 

Design Problems 

The first problem you run into in 
creating a masked edit control is propor¬ 
tional fonts. Windows 3.0 encourages you 
to avoid fixed-width character fonts in 
your user interface. Unfortunately, if you 
pre-display a mask like this 


( ) - 

in your edit control and then start 
entering characters, the pre-displayed 
characters will appear to shift to the 
right because most of the characters 
you enter will be wider than the spaces 
they are replacing. 

I found no pleasing solution to the 
font problem. The one commercial Win¬ 
dows product I own that uses masked 
edit controls (IBM Current) simply uses a 
fixed-width font. Eventually, I got used 
to the jumping motion caused by using 
a proportional font. I am not sure I 
would use this in a commercial product, 
however. 

The second problem with masked 
edit controls for Windows is handling 
cursor movement, in a character-mode 
interface, I would never allow the cur¬ 
sor to move to any of the literal charac¬ 
ters in the mask. For example, if the 
cursor were on the first number of the 
phone number and you pressed the left 
arrow key, the program would beep 
and not allow the cursor to move onto 
the left parenthesis. 

I originally wrote my Windows code 
to produce a similar behavior, i inter¬ 
cepted every message necessary to 
prevent positioning the cursor on a 
literal character of the mask. Unfor¬ 
tunately, that keeps the user from 
selecting the entire field to cut or copy 
to the clipboard. For example, Windows 
users expect 'to be able to copy a 
phone number to the clipboard, includ¬ 
ing the parentheses and dash (or 
whatever literal characters you used). 

I arrived at a compromise for cursor 
movement. When the masked edit con¬ 
trol receives the input focus, it positions 
the cursor at the first non-literal charac¬ 
ter. Entering a single character moves 
the cursor to the right, jumping over 
any literal characters in the mask. 
Likewise, backspace jumps backward 
over any literal characters in the mask. 
You can still use the mouse or any of 
the Windows cursor positioning keys to 
move the cursor on top of a literal char¬ 
acter. If you try to enter a character 
when the cursor is on a literal charac¬ 
ter, you get a beep unless the key you 
pressed is the same as that literal char¬ 
acter, in which case the cursor advan¬ 
ces to the right. That was the best solu¬ 
tion I could see that still allows the use 


Listing 1 (maskedit.pas) 

unit MaskEdit; 
interface 

uses WObjects, WinTypes, WinProcs, Strings; 
const 

MAX_MASK_EDIT = 32; 

type 

TMaskEdit = object(TEdit) 

EditLength 
: integer; 

Mask, Pattern 

: array [0..MAX_MASK_EDIT] of char; 
constructor Init(AParent : PWindowsObject; 

Id : integer; MaskPattern : PChar; 
x, y, w, h, TextLength : integer); 
procedure ValidateCursor(Forward:boolean); 
procedure PutChar(AChar : char); 
procedure Delete(Forward:boolean; Message:TMessage); 
procedure InputChar(Pressed:char; 

StartPos, EndPos : integer); virtual; 

private 

procedure WM_Char(var Message:TMessage); 

virtual wm_First + wm_Char; 
procedure WMLButtonUp(var Message:TMessage); 

virtual wm_First + wm_LButtonllp; 
procedure WMKeyDown(var Message:TMessage); 

virtual wm_First + wm_KeyDown; 
procedure WMSetFocus(var Message:TMessage); 
virtual wm_First + wm_SetFocus; 

end; 

PMaskEdit ■= ''TMaskEdit; 

A Masked Edit Control for TPW 
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Listing 1 —Cont'd 


implementation 

{ Shifted - TRUE if Shift key is pressed } 

function Shifted:boolean; 
begin 

Shifted := (GetKeyState(VK_SHIFT) AND $8000) <> 0; 

end; 

{ Control - TRUE if Control key is pressed } 

function Control:boolean; 
begin 

Control := (GetKeyState(VK_CONTROL) AND $8000) <> 0; 

end; 

{ Init - Constructor for TMaskEdit ) 

constructor TMaskEdit.Init(AParent : PWindowsObject; Id : integer; 

MaskPattern : PChar; x, y, w, h, TextLength : integer); 
var 

i, iMask, iPattern 
: integer; 

CharCode 
: char; 

Special 

: boolean; 

begin 

iMask := 0; 

i := 0; 

while (MaskPattern[i] <> #0) 

AND (i < MAX_MASK_EDIT) 

AND (i < TextLength) do 
begin 

CharCode := MaskPattern[i]; 

{ Alphabetics are pattern characters } 

Special : = CharCode in [ , A l .. l Z','a'.. l z 1 ]; 

{ Unless preceded by backslash } 
if CharCode = 1 \ 1 then 
begin 

i := i + 1; 

if i <= TextLength then 

CharCode := MaskPattern[i]; 

end; 

if Special then 
begi n 

Mask[iMask] := 1 '; 

Pattern [iMask] 
end 

else 

begin 

Mask[iMask] 

Pattern [iMask] 
end; 

iMask := iMask+1; 

i := i+1; 

end; 

Mask[iMask] := #0; 

Pattern[iMask] := #0; 

EditLength := iMask; 

TEdit.Init(AParent, Id, OMask, x, y, w, h, iMask+1, FALSE); 

end; 

{ ValidateCursor - Position cursor on non-literal } 

procedure TMaskEdi t.Val idateCursor(Forward:boolean); 
var 

StartPos, EndPos, iMask, Increment 
: integer; 

FoundStart 
: integer; 


CharCode; 


CharCode; 

> I • 
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Listing 1 — Cont’d 

function ValidatePos : boolean; 
var 

Pos : integer; 
begin 

Pos := iMask; 

if (Pos < 0) or (Pos >= EditLength) then 
ValidatePos := FALSE 

else 

ValidatePos :■ (Pattern[Pos] <> ' '); 

end; 

begin 

GetSelection(StartPos, EndPos); 

FoundStart := -1; 

if Forward then Increment := 1 else Increment := -1; 
iMask := StartPos; 

while iMask <> FoundStart do 
if ValidatePos then 

FoundStart := iMask 

el se 

begin 

iMask :■ iMask + Increment; 

{ Reverse direction, if necessary } 
if (iMask < 0) or (iMask >■ EditLength) then 
begin 

Increment := -Increment; 

iMask := iMask + Increment; 

end; 

end; 

SetSelection(FoundStart, FoundStart+1); 

end; 

( Delete - Delete current selection, maintain mask } 

procedure TMaskEdit.Delete(Forward:boolean; Message:TMessage); 
var 

StartPos, EndPos, iMask 
: Integer; 

Finished : boolean; 

Buffer : array[0..MAX_MASK_EDIT] of char; 

begi n 

GetSelection(StartPos, EndPos); 
for iMask := StartPos to EndPos-1 do 

Buffer[iMask-StartPos] := Mask[iMask]; 
Buffer[EndPos-StartPos] := #0; 

DefWndProc(Message); 

Insert(@Buffer); 

SetSelection(StartPos, StartPos+1); 

{ Special futzing for backspace ) 
if not(Forward) then 
begin 

if StartPos > 0 then StartPos := StartPos-1; 

SetSelection(StartPos, StartPos); 

ValidateCursor(Forward); 

Insert(‘ '); 

SetSelection(StartPos, StartPos+1); 

ValidateCursor(Forward); 
end; 

end; 

{ PutChar - Replace current selection with a character } 

procedure TMaskEdit.PutChar(AChar:char); 
var 

StartPos, EndPos 
: Integer; 

Dummy 

: array[0..2] of char; 

begin 

Dummy[0] := AChar; 

Dummy[l] := chr(0); 

Insert(@Dummy); 

ValidateCursor(TRUE); 

end; 


of the keyboard or mouse to select any 
or all of the field for cutting or copying 
to the clipboard. 

The third problem with making a 
masked edit control for Windows is im¬ 
plementing overwrite mode. The CUA 
guidelines call for entry fields to support 
both insert and overwrite modes for 
input fields, but Windows edit controls 
only support insert mode. You invariab¬ 
ly want overwrite mode for fixed-length 
masked input data, however. For ex¬ 
ample, if you want to correct a single 
digit in a phone number, you never 
want all of the existing numbers to shift 
to the right. You also do not want to 
have to delete the existing digit to 
enter the new one. Fortunately, it is not 
too difficult to implement overwrite 
mode on top of the standard Windows 
edit control. 

Implementation 

Listing 1 shows the TPW unit 1 
created to produce a simple masked 
edit control for Windows. I wish I could 
say I used some orderly algorithm for 
deciding what Windows messages to 
override. In fact, it was a trial-and-error 
approach. If anyone ever writes a book 
that documents exactly which Windows 
messages get sent under precisely what 
conditions, I will be the first in line to 
buy a copy. 

During initialization, the constructor 
splits the supplied mask into two 
separate strings, one for literal charac¬ 
ters and one for pattern characters. The 
literal string is handy for repainting the 
edit control correctly when the user 
deletes characters. This implementation 
reserves all alphabetic characters for 
use as pattern specifiers, although it 
only implements an ‘n' (only numeric 
characters allowed) and an ‘a' (only al¬ 
phabetic characters allowed). If you 
need a literal alphabetic character in 
your mask, you can precede it with a 
backslash (“\"). 

The biggest member function is 
ValidateCursor(). This function moves 
the cursor to the nearest non-literal 
character in the mask. You can specify 
whether you are looking for the nearest 
character in a forward or backward 
direction. This is a bit more complicated 
than it sounds because, for example, 
the nearest non-literal character to the 
left of the current position could actual¬ 
ly lie to the right. 
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Listing 1 — Cont’d 

{ WMKeyDown - Handle delete and insert and 
maintain overwrite mode ) 

procedure TMaskEdit.WMKeyDown(var Message:TMessage); 
var 

StartPos, EndPos, CursorPos, MaxPos 
: integer; 

Cl ipDataPtr 
: PChar; 

ClipData 

: array [0..MAX_MASK_EDIT] of char; 

ClipDataHandle 
: THandle; 

begin 

{ If Pasting into control, handle it ourselves } 
if (Message.WParam = VK_INSERT) AND not(Control) then 
begin 

if not(Shifted) then 

( We don't support insert mode, so beep } 
MessageBeep(O) 

el se 

if not(0penClipboard(HWindow)) then 
MessageBeep(O) 

else 

begin 

ClipDataHandle := GetClipboardData(CF_TEXT); 
if ClipDataHandle = 0 then 
begi n 

MessageBeep(O); 

CloseClipBoard; 

end 

el se 

begin 

ClipDataPtr := GlobalLock(ClipDataHandle); 
StrLCopy(ClipData,ClipDataPtr,MAX_MASK_EDIT); 
Global Unlock(ClipDataHandle); 

{ Always close clipboard before generating Windows messages } 
Closed i pBoard; 

GetSelection(StartPos,EndPos); 

MaxPos := StartPos + StrLen(ClipData); 
if MaxPos > EditLength then 
MaxPos :« EditLength; 
if MaxPos > EndPos-1 then 
MaxPos := EndPos-1; 
for CursorPos := StartPos to MaxPos do 
begin 

SetSelection(CursorPos, CursorPos+1); 
InputChar(ClipData[CursorPos-StartPos], 
CursorPos, CursorPos+1); 

end; 

end; 

end; 

end 

else if Message.WParam = VK_DELETE then 
Delete(TRUE, Message) 

el se 

DefWndProc(Message); 

GetSelection(StartPos, EndPos); 

if Message.WParam = VK_LEFT then 
begin 

if not(Shifted) then 
begin 

if StartPos > 0 then 

StartPos := StartPos - 1; 

EndPos := StartPos + 1; 

SetSelection(StartPos, EndPos); 
end 
end 

else if Message.WParam * VK_RIGHT then 
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Listing 1 — Cont’d 

begin 

if (StartPos = EndPos) AND not(Shifted) then 
SetSelection(StartPos-1,StartPos); 

end; 

end; 

( WMLButtonUp - Ensure we stay in overwrite mode } 

procedure TMaskEdit.WMLButtonllp(var Message:TMessage); 
var 

StartPos, EndPos 
: integer; 

begin 

DefWndProc(Message); 

GetSelection(StartPos, EndPos); 
if StartPos ■ EndPos then 

SetSelection(StartPos, StartPos+1); 

end; 

( WMSetFocus - Position cursor on non-literal character } 

procedure TMaskEdit.WMSetFocus(var Message:TMessage); 
begin 

DefWndProc(Message); 

ValidateCursor(TRUE); 

end; 

{ InputChar - Virtual handler for input characters } 

procedure TMaskEdit.InputChar(Pressed:char; StartPos, EndPos : integer); 
begin 

case Pattern[StartPos] of 

1 n 1 : ( Only allow numerics } 

if Pressed in ['O'..'9'] then 
PutChar(Pressed) 

else 

MessageBeep(O); 

'a' : ( Only allow alphabetics } 

if Pressed in [ l a'..'z','A l .. l Z l ] then 
PutChar(Pressed) 

el se 

MessageBeep(O); 

el se 

if Pressed = Mask[StartPos] then 
PutChar(Pressed) 

else 

MessageBeep(O); 

end; 

end; 

( WM_Char - Handle input characters } 

procedure TMaskEdit.WM_Char(var Message:TMessage); 
var 

StartPos, EndPos 
: integer; 

Pressed 
: char; 

begin 

Pressed := Chr(Message.WParam); 

GetSelection(StartPos, EndPos); 
if Message.WParam ■ VK_BACK then 
Delete(FALSE, Message) 

el se 

InputChar(Pressed, StartPos, EndPos); 

GetSelection(StartPos, EndPos); 
if StartPos = EndPos then 

SetSelection(StartPos, StartPos+1); 

end; 

end. 

( End of File } 


Another complication in the code is 
the INSERT key. If the user pastes text 
into the masked edit control, you still 
want InputCharf) to validate each 
character. This was one case where 1 
could not let DefWndProc () do any of 
the work. The code has to explicitly 
open the clipboard, retrieve the data 
there, close the clipboard, and feed one 
character at a time through the Input- 
Char () function. 

Extensibility 

One goal in creating this object was 
to make it easy to reuse the same ob¬ 
ject to handle other simple patterns. To 
accomplish this, I knew I needed a vir¬ 
tual function that other classes could 
redefine to handle new pattern charac¬ 
ters. Unfortunately, the constructor of 
this class needs to know in advance 
which characters are reserved for pat¬ 
terns. I eventually decided to just 
reserve all of the alphabetic for pattern 
characters. The virtual procedure 
InputChar() gets called whenever the 
user presses a character to be displayed 
(not a backspace, for example). You can 
redefine this function to handle new 
pattern characters and pass any other 
pattern characters on to the previous 
character handler. 

An Example 

Listing 2 shows a simple example of 
how to use and extend the MaskEdit 
object. Figure 1 shows the resulting 
window. The code derives a new object 
called AMaskEdit that defines a new 
pattern character (‘A’). This pattern char¬ 
acter accepts only alphabetic, but also 
maps lowercase characters to upper 
case. As the code shows, that only re¬ 
quires redefining the InputCharf) pro¬ 
cedure. The InputCharf) procedure 
checks to see if the pattern character is 
'A'; if not, it passes the job back to the 
parent object’s InputCharf) function. 

Summary 

The implementation in this article 
provides a basic masked edit control, 
but could stand a lot of improvement. 
One flaw is that the cursor does not in¬ 
dicate when you try to go past the 
beginning or end of the string; it just 
remains on the first or last character. I 
am not sure whether it would be better 
to just beep or to collapse the cursor to 
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an insertion-modp caret, or what. In 
any case, it would be nice to provide a 
CUA-compliant auto-tab option. Auto¬ 
tab means that when you type the last 
character that the fixed-length field can 
hold, the focus automatically moves to 
the next control as though the user had 
pressed the TAB key. 

Implementing a masked edit control 
for Windows requires some detailed 


thought and programming to ensure 
that the result still looks like a Win¬ 
dows program. Someday, we will 
probably have standard solutions to all 
the most common user interface 
problems. Meanwhile, keep your CUA 
guidelines close at hand and be 
prepared to reinvent old wheels. □ 



COMMUNICATION 
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l\|ow you can analyze and diag¬ 
nose stubborn serial communication 
problems in real time using your PC or 
compatible computer and serial ports. 
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online file viewer . 
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and is simply the fastest serial diagnostic 
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db Technology's 30-day money back 
guarantee. 
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Call today and order your copy of 
The INTERCEPTOR (VISA/MC accept¬ 
ed) or send $ 119 (US) (Foreign orders 
add $ 10 shipping) to: 

db Technology 

P.O. Box 40299 
Tuscaloosa, AL 35404 
(205)556-9020 


Listing 2 (testpas) 

program TestMaskEdit; 

uses MaskEdit, WObjects, WinProcs; 

type 

TAMaskEdit = object(TMaskEdit) 

procedure InputCharfPressed:char; 

StartPos, EndPos : integer); virtual; 

end; 

PAMaskEdit = A TAMaskEdit; 

TTestMaskEdit * object(TApplication) 

TestEdit : PMaskEdit; 

TestAEdit : PAMaskEdit; 

procedure InitMainWindow; virtual; 

end; 

{ InputChar - implement pattern character 'A 1 . } 

procedure TAMaskEdit.InputChar(Pressed:char; 

StartPos, EndPos : integer); 
begin 

{ if 'A', only allow alpha and map to upper case ) 

if Pattern[StartPos] « 'A' then 
begin 

if Pressed in ['a'..'z'/A'..'Z'] then 
begi n 

if Pressed in ['a'..'z'] then 

Pressed := UpCase(Pressed); 
PutChar(Pressed); 
end 

else 

MessageBeep(O); 
end 

else 

TMaskEdit.InputChar(Pressed, StartPos, EndPos); 

end; 

procedure TTestMaskEdit.InitMainWindow; 
begin 

MainWindow := New(PWindow, Init(ni1, 'Test MaskEdit')); 

TestEdit := New(PMaskEdit, Init(MainWindow, 98, 

'(nnn) nnn-nnnn', 20, 20, 115, 30, 14)); 

{ 

Normally, you would put "State" in a static text field, but I 
want to demonstrate literal alphabetic characters... 

I 

TestAEdit := New(PAMaskEdit, Init(MainWindow, 99, 
'\S\t\a\t\e [AA]', 20, 55, 115, 30, 15)); 

end; 


var App : TTestMaskEdit; 

TestEdit : PEdit; 
begin 

App.Init('Test Numeric Edit'); 

SetFocus(App.TestEdit A .HWindow); 

App.Run; 

App.Done; 

end. 

{ End of File } 

Using the Masked Edit Control Object 
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Adding Menu Bars 
To Dialog Boxes 

Ron Burk 


How do you construct a window that consists of a caption, a 
menu bar, and child controls? The simplest solution is to design the 
window with a dialog box editor and then let the Windows dialog 
box functions handle all the work of drawing child controls on the 
client area and the complexities of keyboard navigation (for example, 
making sure that Tab moves the focus to the next control). This ar¬ 
ticle discusses the problems involved in using a dialog box editor to 
construct windows with menu bars. 

Dialog Boxes Versus Windows 

The distinction between dialog boxes and windows is a little blur¬ 
ry. According to the "Common User Access Advanced Interface Design 
Guide,” a dialog box is a movable, fixed-size window containing con¬ 
trols to allow the user to specify information so your application can 
get on with a task. In practice, dialog boxes and windows have a few 
specific differences. 

The main difference between dialog boxes and windows is how 
you use them. A window usually handles one or more tasks, 
whereas a dialog box usually appears during a task to collect some 
information. A dialog box is often modal (that is, you cannot do any¬ 
thing else with the application until you exit the dialog box), whereas 
windows are rarely modal. 

The visual differences between a dialog box and a window con¬ 
taining child controls can be subtle. Dialog boxes rarely have menu 
bars, but windows often do. Dialog boxes should not be resizable; 
windows generally should be resizable. This means that dialog boxes 
should not have the thick frame border used for resizing windows. 
However, dialog boxes can use the US_EX_DLGMODALFRAME frame, 
which is fairly thick, but not resizable. Also, both dialog boxes and 
fixed-size windows may use the skinny style of border. 
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Listing 1 


linclude <windows.h> 

/* 

* CreateDialogMenu - From dialog template, create window w/menu. 


HWND CreateDialogMenu(HANDLE Instance, 

LPSTR TempiateName, HWND Parent, 

FARPROC DlgFunction, LPSTR MenuName, 

LONG BorderStyle) 

{ 

HWND NewWindow, Menu; 

LONG WindowStyle, WindowExStyle; 

RECT WindowRect, OldClient, NewClient; 

int OldWidth, NewWidth, OldHeight, NewHeight; 

NewWindow = CreateDialog(Instance, 

TemplateName, Parent, DlgFunction); 
if(NewWindow ■■ NULL) 
return NULL; 

GetWindowRect(NewWindow, &WindowRect); 

GetClientRect(NewWindow, &01dClient); 

WindowExStyle = GetWindowLong(NewWindow, GWL_EXSTYLE); 

WindowStyle = GetWindowLong(NewWindow, GWL_STYLE); 

/* Turn off DLGMODALFRAME bit */ 

WindowExStyle &= ~WS_EX_DLGMODALFRAME; 

SetWindowLong(NewWindow, GWL_EXSTYLE, 

WindowExStyle & ~WS_EX_DLGMODALFRAME); 

/* Turn on style of frame you want */ 

WindowStyle &= ~(WS_B0RDER | WS_DLGFRAME | WS_THICKFRAME); 
switch(BorderStyle) 

( 

case WS_THICKFRAME : 

WindowStyle |= WS_THICKFRAME; 
case WS_DLGFRAME 

WindowStyle |= WS_DLGFRAME; 

WindowStyle |« WS_B0RDER; 

} 

SetWindowLong(NewWindow, GWL_STYLE, WindowStyle); 

SetMenu(NewWindow, LoadMenu(Instance, MenuName)); 

GetClientRect(NewWindow, &NewClient); 

OldWidth = OldClient.right - OldClient.left; 

NewWidth ■ NewClient.right - NewClient.left; 

OldHeight = OldClient.bottom - OldClient.top; 

NewHeight = NewClient.bottom - NewClient.top; 

SetWindowPos(NewWindow, NULL, 0, 0, 

(WindowRect.right-WindowRect.left) + (OldWidth - NewWidth), 
(WindowRect.bottom-WindowRect.top) + (OldHeight-NewHeight), 
SWP_DRAWFRAME | SWP_N0M0VE); 
return NewWindow; 

} 


int PASCAL WinMain(HANDLE Instance, 

HANDLE Previous, LPSTR CmdLine, int Command) 

( 

static char AppName[] = “DlgMenu"; 

HWND MainWindow; 

MSG Message; 

if(!Previous) 

{ 

extern long FAR PASCAL WindProcfHWND, WORD, WORD, LONG); 

WNDCLASS WindowClass; 

WindowClass.style = CS_HREDRAW | CS_VREDRAW | CS_DBLCLKS; 


Windows From Dialog Boxes 

When you decide to create a win¬ 
dow whose client area contains only 
child controls, you can save a lot of 
time by using dialog box tools. Petzold 
demonstrated this with his hex cal¬ 
culator example. The basic idea is to 
create a dialog box template for your 
window (preferably with an interactive 
dialog box editor), but set the dialog 
box window class field to some window 
class of your own choosing. Then, your 
application can use CreateDialogf) to 
automatically create and draw all of the 
child controls on the window, based on 
your dialog template. You can also use 
IsDialogMessage() to handle the 
keystrokes. 

Here are the basic steps required to 
create a window with dialog box tools: 

• Create a resource file containing the 
dialog box description. 

• Add a CLASS statement that names a 
window class you will create. 

• In your program, register the window 
class named in the dialog box 
template. 

• Make sure your window class sets 
the cbUndExtra field to DLGWIN- 
DOUEXTRA and specifies the callback 
function you want. 

• Use CreateDialogf) to load the 
dialog template and create the win¬ 
dow with all of its child controls. 

• If desired, use IsDialogMessagef) in 
your message loop to handle the 
typical dialog box navigation keys. 

Of course, nobody wants to create 
dialog box templates by directly editing 
a .RC file, positioning each child control 
with Cartesian coordinates and typing 
lengthy control definition statements. 
Obviously, you want to use one of the 
visual, interactive tools that allow you 
to paint your dialog box on the screen 
and then automatically generate the 
.RC file. The problem is that, although 
the person who wrote the resource 
compiler understood that programmers 
would be using dialog box templates to 
construct windows, most of the people 
who write dialog box editors apparently 
did not. Your first problem comes when 
you discover that the Microsoft SDK 
dialog editor does not allow you to 
specify the window class for a dialog 
box. You can either manually edit the 
CLASS statement into the .RC file after 
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every dialog box editor, or you can 
switch to another product. I switched to 
the Whitewater Resource Toolkit (WRT), 
probably the most common alternative 
to the SDK tools. The WRT at least lets 
you specify the dialog box window 
class, but more problems lie ahead. 

Adding Menu Bars 

Petzold’s HexCalc example uses a 
skinny frame and no menu bar. It is 
probably no coincidence that that is the 
easiest kind of window to produce from 
a dialog box template. If you try to add 
a menu bar to a dialog box that has the 
US_EX_DLGMODALFRAME Style of border 
(the medium-thick border that is not 
resizable), you run smack into a Win¬ 
dows bug. In this case, Windows draws 
the menu incorrectly. You can read the 
items in the menu bar, but the line un¬ 
derneath the menu bar is missing and 
random bits from the background seem 
to show through here and there. You 
cannot do anything about this bug; you 
simply cannot add a menu bar to a 
window that has this style of border 
without getting visual glitches. 

Apart from being restricted to either 
the skinny border or the thick resizable 
border, nothing will keep you from ad¬ 
ding a menu bar to your dialog box. 
Nothing, that is, except your dialog box 
editor. The SDK editor also does not 
allow you to specify a menu for the 
dialog box. Oddly enough, the WRT 
editor lets you specify the menu name, 
but does not write it into the .RC file! 
Fortunately, you can work around this 
problem without having to manually 
edit the output of the dialog box editor. 

Another problem is that neither 
dialog box editor allows you to specify 
the thick, resizable border. Once again, 
you can manually edit the .RC file to 
change the border style, but all this 
manual editing of .RC files has a serious 
drawback. When the dialog box editor 
generates the .RC file, it calculates the 
correct coordinates for all of the child 
controls. Of course, the editor has no 
idea that you are going to change the 
border to be thicker or add a menu bar. 
Therefore, if you make those changes, 
the result no longer looks like the 
dialog box you painted. In fact, it is 
quite likely that some of your child con¬ 
trols will lie partially outside of the win¬ 
dow, because adding the menu bar 
shifted everything down. 


Figure 1 


| esss||| 

DlgMenu 

( Options 

Help 

I ok 

| [ 


1 



I Cancel 



Listing 1 — Cont’d 


WindowClass.lpfnWndProc = WindProc; 

WindowClass.cbClsExtra = 0; 


// Don't forget extra bytes because it is a dialog 
WindowClass.cbWndExtra = DLGWINDOWEXTRA; 


WindowClass.hlnstance 
WindowClass.hlcon 
WindowClass.hCursor 
WindowClass.hbrBackground 


* Instance; 

= LoadIcon(Instance, IDI_APPLICATION); 
= LoadCursor(NULL, IDC_ARR0W); 

= GetStockObject(WHITE_BRUSH); 


WindowClass.IpszMenuName = NULL; 

WindowClass.lpszClassName = AppName; 

RegisterClass(&WindowClass); 

} 


MainWindow » CreateDialogMenu(Instance, "DLGMENU", 

0, NULL, "MAIN_MENU", WS_THICKFRAME); 

ShowWindow(MainWindow, Command); 


while(GetMessage(&Message, NULL, 0, 0)) 

( 

if(!IsDialogMessage(MainWindow, &Mes$age)) 
{ 

TranslateMessage(&Message); 
DispatchMessage(&Message); 

} 


return Message.wParam; 
) 


long FAR PASCAL WindProc(HWND WindowHandle, 

WORD MsgNum, WORD WordParm, LONG LongParm) 

{ 

switch(MsgNum) 

( 

case WM_DESTR0Y: 

PostQuitMessage(O); 
return 0; 
default: 

return DefWindowProc(WindowHandle, MsgNum, WordParm, LongParm); 

} 

) 

/* End of File */ 


Page 40 - TECH Specialist 


November 1991 





















Listing 2 


#include <windows.h> 

DLGMENU DIALOG DISCARDABLE LOADONCALL PURE MOVEABLE 11, 26, 109, 42 
CLASS "DlgMenu" 

STYLE WS POPUP | MS CAPTION | MS SYSMENU 
CAPTION "DlgMenu" 

BEGIN 

CONTROL “OK" 100, "BUTTON", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 0, 0, 29, 16 
CONTROL "Cancel" 101, "BUTTON", WS_CHILO | WS VISIBLE | WS_TABSTOP, 0, 27, 29. 15 
CONTROL "Text" 102, "COMBOBOX", WS_CHILD | WS _ VISIBLE | WS_VSCROLL | OxlL, 43. 0, 66, 34 
END 


/* Dummy main menu for demonstration *7 

MAIN MENU MENU LOADONCALL MOVEABLE PURE DISCARDABLE 
BEGIN 

POPUP "&Options" 

BEGIN 

Menultem “&Learn...", 666 
END 

Menultem “\a&Help", 667 
END 


Working Around It 

The real solution, of course, is for the 
vendors who make dialog box editors 
to improve their tools. In the meantime, 
I have managed to write some software 
that allows me to live with the 


Whitewater Resource Toolkit’s restric¬ 
tions. I could not find an easy way to 
change the dialog box's window class at 
runtime (loading and modifying the 
dialog template in memory did not 
strike me as easy), so I gave up on 
using the Microsoft SDK dialog editor. It 


is fairly easy to correct all of the other 
problems at runtime. 

You can add a menu bar to a win¬ 
dow at runtime by calling the Windows 
function SetMenu(). Changing the bor¬ 
der is as easy as setting the correct 
style bits by calling SetWindowLong(). 
The tricky part is accounting for the ef¬ 
fect these changes have on* the child 
controls. Windows provides functions 
that tell you the size of any style of 
border, but figuring out how much 
space a menu bar takes up is difficult 
because a menu bar with many items 
in it can contain multiple lines of menu 
items. 

After trying several other algorithms, 
it finally dawned on me the real prob¬ 
lem is that changing the border or 
menu does not affect the size of the 
window, it affects the size of the client 
area of the window. Looking at the 
problem from that perspective made 
the solution obvious. I just call Get- 
ClientRect() to find out how big the 
client area is before changing the bor¬ 
der or menu bar, then call it again after 
making the changes. The difference be¬ 
tween the two rectangles is the 
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□ Three DLLs included: 
NEWT: TCP/IP stack 
FTP: file transfer 
SMTP: mail transfer 

□ Integrated SLIP dialing 

Applications* 

TELNET (VT100) 
FTP BIND 

TFTP Statistics 

SMTP Custom 

Mail PING 

□ Point and click UI 

□ Context sensitive help 

□ Both client and server 
* Optional 


The first TCP/IP implemented as a Windows DLL 

Net Manage Inc. (408) 257-6404 

10020 N. DeAnza Blvd. #101, Cupertino, CA 95014 Pax: (408) 257 6405. 
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Listing 3 


NAME DLGMENU 

DESCRIPTION 'DlgMenu - Demonstrate adding menu bar to dialog 1 
STUB 'WINSTUB.EXE' 

EXETYPE WINDOWS 

CODE PRELOAD FIXED 

DATA PRELOAD FIXED MULTIPLE 

STACKSIZE 4096 
HEAPSIZE 4096 

EXPORTS WindProc 


COMPUTER 

LANGUAGE 




5.0 presents 
C Bug # 648 


#include <stdio.h> 


int main () 


l 

int n = 400 * 400 

/ 400 ; 

printf ( "%d\n" 

n ) ; 

return 0; 

1 



What is printed? It looks like it should be 400 but if you try this on 
MS-DOS, you will get 72. Where's the error? Compilers won't tell you. 


PC-lint will catch this and many other 

C bugs. Unlike your compiler, PC-lint 
looks across all modules of your appli¬ 
cation for bugs and inconsistencies. 

New - Optional Strong Type Checking 
and variables possibly not initialized. 

More than 330 error messages. More 
than 105 options for complete cus¬ 
tomization. Suppress error messages, 
locally or globally, by symbol name, by 
message number, by filename, etc. 
Check for portability problems. Alter 
size of scalars. Adjust format of error 
messages. Automatically generate ANSI 
prototypes for your K&R functions. 


Attn: Power users with huge programs. 
PC-lint 386 uses DOS Extender 
Technology to access the full storage 
and flat model speed of your 386. Now 
fully compatible with Windows 3.0 
and DOS 5.0 

PC-lint 386-$239 
PC-lint DOS or OS/2 - $139 

Mainframe & Mini Programmers 
FlexeLiflt in shrouded source 
form, is available for Unix, OS-9, 
VAX/VMS, QNX, IBM VM/MVS, 
etc. Requires only K&R C to com¬ 
pile but supports ANSI. Pricing 
starts at $798. Call for details. 



3207 Hogarth Lane, Collegeville, PA 19426 

CALL TODAY (215)584-4261 Or FAX (215)584-4266 

30 Day Money-back Guarantee. 

PA add 6 % sales tax. PC-lint and FlexeLint are trademarks of Gimpel Software 


amount I need to grow the window, 
which I do by calling SetUindowPos(). 
Of course, make sure the US_VISIBLE 
bit is off in your dialog box template, so 
none of these operations is visible to 
the user. Only after all the window 
manipulations are complete do I call 
ShowUindow(). The user only sees the 
finished product and never knows that 
the window structure was altered at 
runtime. 

Implementation 

I packaged up all of the window 
manipulation just described into a func¬ 
tion called CreateDialogMenu(). It as¬ 
sumes that you managed to specify a 
window class in your .DLG file, but not 
the menu name. You call this function 
just like you would CreateDialogf), 
but you pass two extra arguments. 

The first extra argument specifies 
the name of the menu to add to the 
dialog box. The second extra argument 
specifies the style of window border 
you want. If you want a resizable win¬ 
dow, specify USJHICKFRAME. If you 
want a fixed-size window with a thin 
border, specify WS_DLGFRAME. If you just 
pass a zero for this argument, you get 
no caption and no border at all, which 
is probably not what you want. 

Listing 1 contains the source to 
CreateDialogMenuO along with a simple 
test program. Figure 1 shows the result¬ 
ing window, which I create using the 
dialog box editor of the Whitewater 
Resource Toolkit. I used the dialog box 
editor to place controls at the edges of 
the dialog box, to verify that the client 
area of the resulting window was ex¬ 
actly the same as the client area of the 
original dialog box. Listing 2 contains 
the ,RC file produced by the WRT and 
the necessary . DEF file is in Listing 3. 

Summary 

It is worth reiterating that the pur¬ 
pose of adding menu bars to dialog 
boxes is not to flout the CUA guidelines 
by building new hybrid visual styles. 
The point is to avoid reinventing all of 
the existing dialog box tools and func¬ 
tions when you need to build windows 
that contain child controls. Hopefully, 
the next wave of dialog box editors will 
understand and accommodate this 
need. □ 
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Using Windows 
Initialization Files 


Kevin Carlson 


Programmers often overlook Win¬ 
dows initialization files when 
developing applications. These files 
can aid an application's initial 
development or store global and 
private data in the final application. 
The developer who uses initialization 
files properly can create a more 
robust application and will enable the 
user to easily customize certain parts 
of the application interface. 

Initialization files (. INI files) store 
data that Windows and the applica¬ 
tions executing under Windows can 
use. For example, MIN. INI, the Win¬ 
dows initialization file, contains infor¬ 
mation that tells what program(s) to 
run at startup, what screen colors to 
use, and what the communications 
port settings are. Any application can 
access and change this information. 


In addition to these public . INI files, 
you can create a private . INI file for 
specific applications. 

.INI File Layout 

An . INI file's layout is 

[section heading 1] 
keynamel=value OR string 
keyname2=value OR string 

[section heading 2] 
keynamel=value OR string 
keyname2=value OR string 

[section heading N] 
keynamel=value OR string 
keyname2=value OR string 


Kevin Carlson is an Atlanta-based consultant specializing in custom business applications. His 
company’s most recent projects involve developing sales management systems. Kevin may be reached 
through CompuServe at 74020, 1750. 
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An .INI file can have many section 
headings, provided that each heading is 
unique. In addition, each keyname must 
be unique within each section heading. 

The Section Heading 

If you look at UIN.INI, you will 
notice that it comprises several sec¬ 
tions, each having numerous keys. 
Though you can store data about your 
application in UIN.INI, Windows will 
run more efficiently if this file contains 
only those items that affect the Win¬ 
dows environment. You should store 
application-specific information in a 
private .INI file. This approach will in¬ 
crease your application's performance 
by reducing the amount of data that 
must be read when the . INI file is ac¬ 
cessed. 

Writing To .INI Files 

The Windows API calls Urite- 
ProfileStringO and UritePrivate- 
ProfileStringO to write information 
to an .INI file. The first of these func¬ 


Notice to TS 
Subscribers 

Occasionally, TECH Specialist 
makes its mailing list available to 
vendors of products we think our 
readers will find interesting. Cur¬ 
rent subscribers receive free in¬ 
formation in the mail from these 
vendors. 

If you prefer that your name 
not be used in these mailings, 
please let us know. Just copy or 
clip this form and send it with 
your name and address to: 


specialist! 

TECH Specialist 

1601 W. 23rd St., Ste. 200 

Lawrence, KS 66046 


tions always writes to UIN.INI while 
the latter writes to application-specific 
(private) . INI files. For example, 

WriteProfi1eString((LPSTR) 

"MyApp", (LPSTR) "XferType", 

(LPSTR) "XModem"); 

writes the string 

"XferType=XModem" 

to the [MyApp] section of UIN.INI. If 
the "XferType" key exists under the 
[MyApp] section, the new value will 
overwrite the old value. Furthermore, if 
the [MyApp] section does not exist in 
UIN.INI, windows creates it. Alterna¬ 
tively, you can write the same informa¬ 
tion to a private . INI file: 

WritePrivateProfi1eString((LPSTR) 
"MyApp", (LPSTR) "XferType", 

(LPSTR) "XModem", 

(LPSTR)"APP.INI"); 

This line of code writes the string 

"XferType=XModem" 

to the [MyApp] section of APP. INI. The 
rules that apply to UriteProfile- 
StringO in creating new section head¬ 
ings and replacing existing key data 
apply to UritePrivateProfileStringO 
as well. However, UritePrivate¬ 
ProfileStringO adds one bit of 
functionality to handle private . INI file 
creation. If the private .INI file does 
not already exist and the path name is 
not fully qualified, the file is created in 
the Windows directory. However, if the 


filename is fully qualified, Windows will 
not create the . INI file. 

Reading . INI Files 

Although a string is the only infor¬ 
mation you may write to an . INI file, 
you can retrieve the information in text 
or numeric format. GetProfile- 
StringO, GetProfileInt(), Get- 
PrivateProfileStringO, and Get- 
PrivateProfileInt() are the functions 
that retrieve . INI information. 

Listing 1 contains part of a sample 
. INI file. The code in Listing 2 reads the 
communications parameters from the 
.INI file ( UIN.INI assumed) when the 
application begins execution. The first 
function call, GetProfileStringO , 
takes five arguments: the section name, 
the key name within that section, the 
default result, the result buffer, and the 
size of the result buffer. The result buff¬ 
er must be large enough to hold the 
expected information, including the ter¬ 
minating NULL character. Note that 
none of the four . INI Get... functions 
are case-dependent with regard to sec¬ 
tion and key names. Therefore, the first 
read from the initialization file could be 

GetProfi1eString((LPSTR) "COMM", 

(LPSTR) "PORT", (LPSTR) "C0M1", 

(LPSTR) commPort,(LPSTR) 
sizeof(commPort)); 

If the section and key exist in the . INI 
file, the corresponding information is 
copied into the result buffer. Otherwise, 
the default string supplied in the call is 
copied into the result buffer. In this ex¬ 
ample, if the PORT key did not exist in 
the [COMM] section, comPort wguld 


Listing 1 


/* Windows Initialization Files - sample INI file section 
* Kevin H. Carlson 8/07/91 
*/ 

[Comm] 

Port=C0M2 

BaudRate=2400 

Parity=N 

DataBits=8 

StopBits=l 

XferType=XModem 

/* End of File */ 
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point to the string "C0M1 The function 
GetProfileInt() returns the integer 
value assigned to the corresponding 
key in the . INI file, if the key value is 
a negative integer, the function returns 
the value zero. However, if the key 
value is composed of numeric charac¬ 
ters followed by non-numeric charac¬ 
ters, GetProfilelntf) truncates the 
non-numeric characters and returns the 
integer value of the numeric characters. 

Reading All Key Names 

You can obtain a list of all key 
names in a given section by calling 
GetProfileString with the IpKeyName 
parameter set to NULL. In this case, 


Windows returns a list of the key 
names in the result buffer. Each key 
name in the list is M/LL-terminated. 
Since the function's return value is the 
number of characters copied into the 
result buffer, you can check whether 
the result buffer should be enlarged to 
hold all the key values. 

Deleting Section 
And Key Names 

To delete items from an .INI sec¬ 
tion, simply call UriteProfileStringO 
with the string parameter set to NULL: 

WriteProf i1eString((LPSTR) "MyApp", 
(LPSTR) "XferType", NULL); 


Listing 2 


/* Windows Initialization Files - sample source code Listing 2 
* Kevin H. Carlson 8/07/91 
*/ 


char commPort [5]; 

int commBaud; 

char commParity[2]; 

int commDataBits; 

int commStopBits; 

char commXferType[7]; 

char lpCommSectionf] = "Comm"; 


/* GetProfileString returns the number of characters copied into the 
* result buffer */ 

GetProfileString((LPSTR) lpCommSection,/* Section name */ 

(LPSTR) “Port", /* Key name */ 

(LPSTR) “COMl", /* Default */ 

(LPSTR) commPort, /* Result Buffer */ 

(LPSTR) sizeof(commPort));/* Size of Buffer including null */ 

/* GetProfilelnt returns type WORD */ 

commBaud = GetProfileInt((LPSTR) lpCommSection,/* Section name */ 

(LPSTR) "BaudRate",/* Key name */ 

2400); /* Default */ 

GetProfi 1 eString((LPSTR) lpCommSection, (LPSTR) "Parity", (LPSTR) "N", 

(LPSTR) commParity, (LPSTR) sizeof(commParityj); 

commDataBits = GetProfilelnt((LPSTR) lpCommSection, (LPSTR) "DataBits", 8); 

commStopBits = GetProfilelnt((LPSTR) lpCommSection, (LPSTR) "StopBits", 1); 

GetProfileString((LPSTR) lpCommSection, (LPSTR) "XferType", (LPSTR) "YModem”, 
(LPSTR) commXferType, (LPSTR) sizeof(conmXferType)); 


/* End of File */ 


This statement deletes the XferType 
key from the [MyApp] section of the 
.INI file. However, if the string 
parameter points to a NULL string, the 
key’s value, not the key itself, is 
cleared. If you want to delete an entire 
section, call the function with both the 
section and key names set to NULL: 

WriteProfi1eString((LPSTR) 

"MyApp", NULL, NULL); 


Sample Uses 

I frequently use .INI files to allow 
the user to specify output paths for 
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reports. Adding this functionality is 
quite easy by executing GetProfile- 
Stringf) o r GetPrivateProfile- 
StringO in the initialization code for 
the application, much as in Listing 2, 
and supplying a global character array 
as the result buffer. If, as is usually the 
case, your code spans several modules, 
simply use the extern declaration to 
reference these paths. This method is 
much quicker that having to re-read 
the .INI file every time you need an 
output path. 

Another common use for . INI data 
is in creating a printer device context. 
The code in Listing 3 obtains the first 
three parameters that CreateDC re¬ 
quires in order to get a device context 
for the default printer. A less common 
use for an . INI key is to aid program¬ 
mers in development. If your applica¬ 
tion requires users to log in and then 
validates their entry against a user- 
security database, you can set a flag to 
let developers bypass this step while 
still allowing you to show demos of the 
login process. 


Notification Of. INI Changes 

An application that changes MIN. INI 
should send a MM_MININICHANGE mes¬ 
sage to all top-level windows. Sending 
this message enables other applications 
to reprocess information in the in¬ 
itialization file that your application has 
altered. The code below illustrates this: 

char sectionChanged[8]; 

/* * pointer to string cont.INIng the */ 
LPSTR IpSection; 

/* name of the section that changed */ 
IpSection = (LPSTR) 
sectionChanged; 

lstrcpy(lpSection, "windows"); 

SendMessage(OxFFFF, 

WM_WININICHANGE, 0, IpSection); 

If your application sends a NULL l- 
Param, the receiving program should 
check all sections of MIN. INI for pos¬ 
sible changes. Although the Microsoft 
SDK Programmer’s Reference states that 
sending a NULL IParam is incorrect, it 
does work. Listing 4 shows sample code 


that would process a MM_MININICHANGE 
message. 

. INI Files On Networks 

When running Windows on a net¬ 
work, you can allow users to share in¬ 
formation in a global .INI file (either 
MIN. INI or a private . INI) or to access 
user-specific information in a “user 
owned” private .INI file. To share . INI 
information across a network, create a 
private .INI file in the network Win¬ 
dows directory or put the information 
in MIN. INI. When your application is 
executed, simply make the proper . INI 
calls to retrieve the information from 
the file. I have used two alternative 
methods to implement “user owned” 
.INI files. To use either method, your 
application must be able to identify the 
user. 

The first method requires a directory 
on each workstation that will hold a 
private .INI file. You then create a 
private .INI File in that directory and 
store the full path to the file in the ap¬ 
plication. (I have stored the path in the 
application’s database and in the ap¬ 
plication-wide private .INI file.) You 
must associate that path with a user. 
From this point, obtain the path during 
program initialization and read from the 
. INI file. 

In the second method, you create a 
unique .INI file name for each user 
based on his or her login. Since this 
filename should always be the same, 
unless a user changes the login, storing 
the path is unnecessary. 

For example, if l sign into the net¬ 
work (or the application) only as KHC, I 
could create an .INI file in the net¬ 
work Windows directory named 
AppKHC.INI. In this file the application 
could store user-specific information, 
such as screen colors and printer setup. 
Furthermore, since the filename need 
not be fully qualified, the first call to 
MritePrivoteProfileString can create 
the file. 

Things To Avoid 

You should definitely avoid over¬ 
using MIN. INI. Creating a MIN. INI file 
that is too large will not only slow 
down your application’s access time to 
this file, but will slow other Windows 
applications as well. Use private .INI 
files wherever possible to avoid having 
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to clean up WIN.INI later. In addition, 
whether your program uses WIN. INI or 
a private .INI file, you should avoid 
making excessive reads. If, for example, 
your application calls GetProfileString 
every time it obtains an output path, 
you are making an unnecessary disk 
access. Instead, create variables for 
needed .INI information and make 
them global across all modules. After 
the application startup initializes the 
variables, your program won't have to 


read the .INI file again unless it 
receives a WM_WININICHANGE message. 

Conclusion 

Designing an application that utilizes 
.INI files does not require a lot of time. 
When measured against the benefits 
received, the investment is well worth 
it Taking advantage of .INI files and 
their myriad uses can make your ap¬ 
plication more complete from both a 
developer's and user’s point of view. □ 


Listing 3 


/* Windows Initialization Files - sample source code Listing 3 

* Kevin H. Carlson 8/07/91 
*/ 

/* The WIN.INI file contains a section named [windows] that has a 

* key called device. For the purpose of this example, that line 

* is given to be: 

* 

* [windows] 

* device=PostScript Printer,PSCRIPT.LPTl: 

* 

*/ 


HOC hPrinterDC; 

char deviceStr[80]; 

int resultLength; 

LPSTR driverName; 

LPSTR deviceName = NULL; 

LPSTR output = NULL; 

// create printer DC 

resultLength = GetProfileString((LPSTR)''windows", (LPSTR)"device 11 , 
deviceStr, sizeof(deviceStr)); 

/* replace commas with Nulls and set parameter pointers */ 
driverName = (LPSTR) deviceStr; 
for(i = 0; i < resultLength; i++) 

( 

if(deviceStr[i] =« ',') 

{ 

device$tr[i] = 1 \0 1 ; 
if(ldeviceName) 

deviceName = &deviceStr[i+l]; 

else 

{ 

output* &deviceStr[i+l]; 
break; 

) 

) 

) 

/* create printer DC */ 

hPrinterDC » CreateDC(deviceName, driverName, output, NULL); 


/* End of File */ 
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Listing 4 


/* Windows Initialization Files - sample source code Listing 4 
* Kevin H. Carlson 8/07/91 
*/ 


extern int result; 

LONG FAR PASCAL MainWndProc(HWND hWnd, WORD message, WORD wParam, LONG IParam) 

{ 

switch(message) 

{ 

. /* other message processing */ 

case WM_WININICHANGE: 

GetProfileString(.);/* load all needed info */ 

result = GetProfileInt(...);/* from WIN.INI */ 

break; 


i 

return FALSE; 
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Using BIOS Fonts With VGA Graphics 


Michael Chapin 

In color modes the VGA has three BIOS fonts at its 
disposal: the 8x8 font we grew to loathe from the CGA; 
the EGA 8x14 font; and the 8x16 font the VGA uses. 
The BIOS always operates with the default font for the 
graphics mode you are in. For 200 line modes, this is 
the 8x8 font. 350 and 480 line modes use the 8x14 and 
8x16 fonts respectively. 

The BIOS character printing functions normally used 
to print to the graphics screen with the BIOS fonts 
have two significant limitations: these functions only 
write on byte boundaries, and the main character 
printing function for interrupt 10H wipes out the back¬ 
ground. Use of the latter means that your carefully 
crafted screen now has a black square with a charac¬ 
ter inside it. 

One option is to write a string-handling function and 
XOR the character, using the same BIOS routines, to 
keep from blasting the background. However, the XOR 
routine lets the background bleed through, resulting in 
an ugly mess if the background is not solid black. For 
any other type of background, you must calculate 
what the color would be by XOfling the value of the 
foreground color with the value of the background 
color. Because this approach uses the BIOS routines, 
the limitation to writing on byte boundaries rather 
than to pixel points remains in effect. 

A more effective alternative is to work with the bit¬ 
maps for the characters. Since the bitmaps are on the 
graphics card, they are always available and they take 
up no extra room in your program. The pointers to 
these fonts provided through the BIOS can be used to 
create screen-writing routines that allow you to 
manipulate the character any way you see fit. 

Accessing The Character Bitmaps 

BFONT. H (Listing 1), the header file for the BFont 
routines, defines a structure that is used for each BIOS 
font available. Included in this structure are current 
color, width, height, and the pointer to the font. The 
rest of the listing consists of function prototypes for 
the routines that write the font to the screen. BFONT. C 


Michael Chapin has a B.S. in chemistry and is a 
programmer by choice. His major programming interest 
is in all kinds of graphics and he is the author of a 
number of shareware applications and programmer's 
libraries. Michael can be reached at 307-682-1195. 


(Listing 2) presents the actual functions that set up the 
system and write to the screen. 

The function SetBFontsf) initializes the system and 
must be called before any of the BIOS font routines or 
the block writing function can be used. This function 
checks to see which video mode is in effect and finds 
the pointers to the available fonts. It then uses func¬ 
tion calls on the EGA/VGA provided by the BIOS to find 
where the bitmaps are located. The AX register is set 
to 1130H and the BH register is set to the number of 
the font of interest. A call to BIOS function 10H returns 
the pointer in the ES:BP registers. 

The function GetBFFontAdrfint which) does this 
for specific fonts, with int which serving as the index 
into the bios_fonts array. This routine sets the font 
pointer for the particular array element. 
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Listing 1 

/********************************************** j 
/* Borland C++ Compiler. */ 

/* */ 

/* (c)copyright 1991, Michael Chapin */ 

y********************************★****★*★****★★y 

#define BF8x8 0 
#define BF8xl4 1 
#define BF8xl6 2 

typedef enum {FALSE, TRUE) BOOL; 

typedef struct{ 
unsigned Color; 
unsigned Width; 
unsigned Height; 
void far *FontPtr; 

}BFont; 

void SetBFontsO; 

/* sets up fonts */ 

void SetBFColor(unsigned Which, unsigned Color); 

char GetBFColor(unsigned Which); 

/* Returns the current color for "Which" font */ 

void SetBFFont(unsigned Which); 

/* Sets the current font that will be written */ 

void PrintBFAt(unsigned x, unsigned y, char *Msg); 

/* 

Prints a font at x, y without changing the font 
pointer. 

*/ 

void EGABlock(unsigned x, unsigned y, 

unsigned width, unsigned height, 
unsigned c); 

/* 

Puts a solid block of color on the screen, x, y 
is the upper left hang point of the box. width is 
the pixel width of the box, height is the number of 
lines high. 

*/ 

/* End of File */ 

Header File for Writing BIOS Fonts on any Byte Boundry 


Listing 2 

y**********************************************y 
/* For Borland C++ Compiler. */ 

/* */ 

/* (c)copyright 1991, Michael Chapin */ 

y**********************************************y 

linclude <stddef.h> 
linclude <stdlib.h> 
linclude <dos.h> 
linclude <string.h> 
linclude <bfont.h> 

BFont BF[] = 

{{7, 8, 8, NULL), 

{7, 8, 14, NULL), 

{7, 8, 16, NULL}); 

BOOL BFontsLoaded; 
unsigned CurrBFFont; 


Module to Write Text on any Bit Boundry on EGA/VGA Graphics Screen 


A more sophisticated approach 
would be to check the card type and 
decide on available fonts from that in¬ 
formation. This would allow you to use 
three fonts if you were in the EGA 
resolution with a VGA card. The reason 
for using the approach I chose is that 
the programmer generally does not 
know what the user has on his 
machine. If you assume a VGA card and 
the user does not have one, the 8x8 
font will print in place of the 8x16 font. 

Using The BFont Routines 

To choose the font you want to 
print, call SetBFFont(int which). If no 
font is described for that number, font 
number 0 will be chosen. To choose a 
color, call SetBFColor(unsigned 
which, unsigned color) - which 
denotes the font for which the color is 
being set; color specifies the color. 
Now you are ready to print a string. 

To print a string, call PrintBFfint 

x, int y, char *msg). x and y are 
the coordinates where the string will be 
written and msg is the string to write. 
PrintBFf) loops through each charac¬ 
ter of the string, setting up a pointer to 
the bitmap that represents the charac- 
ter. The routine then calls 
print_char() to do the actual printing 
of the character to the screen. 

Function print_char(int x, int 

y, int color, int height, un¬ 
signed char *pattern) needs four ar¬ 
guments to print the character, x and y 
are the screen coordinates; color and 
height specify those values; pattern is 
a pointer to the start of the bit pattern 
for the character to be printed. 
print_char() is separated from the 
rest of the functions to allow printing of 
fonts other than the ones in the 
present source. As it stands now, 
print_font() will print any character 
that is eight bits wide in any height. 

print_char() must first get a 
pointer to the byte on the screen 
where the character is to be printed by 
calling get_offset(). get_offset also 
sets the shift value for moving the pat¬ 
tern within the byte, which allows you 
to write on any pixel (the actual pattern 
is split between two bytes if the char¬ 
acter is going to be written on anything 
but a byte boundary). The byte(s) con¬ 
taining the character pattern are then 
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Listing 2 — Cont’d 

unsigned VideoSeg = OxAOOO;/* current video segment */ 
unsigned ScnWidth; /* screen width in bytes */ 
unsigned ScrMode; /* current grapics mode */ 


void GetBFFontAdr(unsigned Which) 

{ 

struct REGPACK Regs; 
unsigned num; 

switch(Which){ 
case 0 : num = 3; break; 
case 1 : num = 2; break; 
case 2 : num = 6; 

} 

Regs.r_ax = 0x1130; 

Regs.r_bx = num « 8; 
intr(0xl0, &Regs); 

BF[Which].FontPtr = MK_FP(Regs.r_es, Regs.r_bp); 


unsigned getvideomodeO 

( 

struct REGPACK Regs; 

Regs.r_ax = OxOFOO; 
intr(0xl0, &Regs); 
return Regs.r_ax & OxFF; 

} 

void SetBFontsO 

{ 

unsigned Mode; 

Mode = getvideomodeO; 
if(!(Mode >= 13 && Mode <= 18)) 
exit(l); 

VideoSeg ■ OxAOOO; 
if(Mode == 13) 

ScnWidth = 40; 
el se 

ScnWidth = 80; 

GetBFFontAdr(O); 

GetBFFontAdr(l); 
if(Mode > 16) 

GetBFFontAdr(2); 

BFontsLoaded = TRUE; 

ScrMode = Mode; 

)/* SetBFonts */ 


/“* Low level routine to write to screen “*/ 
unsigned shift; 

unsigned GetOffset(unsigned x, unsigned y) 

( 

unsigned ofs, 1; 

ofs - x » 3; /* byte offset for col */ 

if(ScrMode >= 13) /* add offset for row */ 

ofs += y * ScnWidth; 
shift = x % 8; 
return ofs; 

}/* GetOffset */ 

void SetWrt2(void) 

( 

outportb(0x3CE, 5); /‘index 5 to address register*/ 
outportb(0x3CF, 2); /‘send out wrt mode num */ 

}/* SetWrt2 */ 
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Listing 2 — Cont’d 

void SetWrtO(void) 

{ 

outportb(0x3CE, 5); /*index 5 to address register*/ 
outportb(0x3CF, 0); /*send out wrt mode num */ 

}/* SetWrtO */ 

void print_char(unsigned x, unsigned y, 

unsigned color, unsigned height, 
unsigned char far ‘pattern) 

{ 

unsigned char far *scnptr, far *ts; 

unsigned c; 

unsigned linebyte; 

unsigned char scrbyte; 

unsigned char Ibyte, rbyte; 

scnptr = MK_FP(VideoSeg, GetOffset(x, y)); 

/* set ega/vga write mode 2 */ 

SetWrt2(); 

/* loop through height of character */ 
for(c = 1; c <= height; C++) 

{ 

ts = scnptr; 

linebyte = ‘pattern « 8; 
if (shift) 

linebyte »= shift; 

Ibyte = linebyte » 8; 
rbyte = linebyte; 

/* address the bit map register */ 
outportb(0x3CE, 8); 

/* send upper byte */ 
outportb(0x3CF, Ibyte); 

/* latch the screen byte */ 
scrbyte * *ts; 

/* write masked byte to the screen */ 

*ts = color; 

/* do the right byte if needed */ 
if (shift) 

{ 

++ts; 

outportb(0x3CE, 8); 
outportb(0x3CF, rbyte); 
scrbyte = *ts; 

*ts = color; 

} 

scnptr += ScnWidth; 

++pattern; 

} 

SetWrtO(); 

}/* print_char */ 

void EGABlock(unsigned x, unsigned y, 

unsigned width, unsigned height, 
unsigned color) 

( 

unsigned char ml, mr, scrbyte; 

unsigned bytewidth, i; 

unsigned char far ‘scnptr, far *ts; 

ml ■ OxFF » (x % 8); 

mr = OxFF « (8 - ((x + width) % 8)); 

bytewidth » (width » 3) + 1; 

/* This makes vertical lines possible */ 
if(bytewidth ■■ 1) 
ml = ml & mr; 


written to the screen using EGA Write 
Mode 2. 

Write Mode 2 is the simplest and 
fastest means of doing this job and has 
the advantage of being available on 
both EGA and VGA. It allows you to set 
a mask and latch a screen byte in just 
a couple of operations, and you can 
then write the masked byte by writing 
the color to screen memory. Since the 
BIOS write routines have no knowledge 
of Write Mode 2, print_font() 
switches the mode back to Write Mode 
0 before it returns. If you should hap¬ 
pen to crash a program when in Write 
Mode 2, the screen will look very 
strange (mine has irregular brown and 
yellow blocks for characters). A DOS 
command of MODE co80 will get you 
back to a legible screen. It will be a bit 
of a pain because you will not be able 
to see what you are typing, but the 
command will bring you back to a text 
mode screen. 

BFONT.C also includes a simple 
routine for writing a block of color to an 
EGA/VGA screen. This routine, included 
in the original library for writing back¬ 
ground color for the fonts, uses the 
same techniques as those used in writ¬ 
ing characters to the screen. First a 
colored block is written, then the char¬ 
acter is put in the box, effectively put¬ 
ting a font on the screen with back¬ 
ground color. It also works well for writ¬ 
ing horizontal and vertical lines to the 
screen. 

BFTEST.C (Listing 3) is a simple test 
program to show what the BIOS font 
routines can do. It is written using 
640x480x16 VGA mode 18. You can 
change the BIOS call to any of the color 
EGA/VGA modes and see how things 
appear in other modes. 

The code for this article was written 
for Borland C++. Any ANSI C compiler 
should be able to compile and run the 
code presented. Users of other C com¬ 
pilers may have to change the names 
of of the port calls to the equivalent 
calls for their compiler. 

Those compilers that do heavy op¬ 
timization may cause the screen writing 
routines to behave strangely. Program¬ 
mers using these thpes of compilers 
will have to turn off optimization 
around those routines with a compiler 
directive. 
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Listing 2 — Cont’d 


scnptr = MK_FP(VideoSeg, GetOffset(x, y)); 
SetWrt2(); “ 

while(height) 

{ 

ts = scnptr; 
outportb(0x3CE, 8); 
outportb(0x3CF, ml); 
scrbyte = *ts; 

*ts = color; 

++ts; 

if(bytewidth > 1) 

{ 

if(bytewidth > 2) 

{ 

for(i =0; i < bytewidth - 1; i++) 

{ 

outportb(0x3CE, 8); 
outportb(0x3CF, OxFF); 
scrbyte = *ts; 

*ts = color; 

++ts; 

) 

} 

outportb(0x3CE, 8); 
outportb(0x3CF, mr); 
scrbyte = *ts; 

*ts = color; 

) 

-height; 

scnptr += ScnWidth; 

) 

SetWrtO(); 


void PrintBF(unsigned x, unsigned y, char *Msg) 
{ 

unsigned StrLen, i; 
unsigned char far *PatPtr; 

if(!BFontsLoaded) 

return; 

StrLen * strlen(Msg); 
for(i * 0; i < StrLen; i++) 

f 

PatPtr = BF[CurrBFFont].FontPtr; 

PatPtr += Msg[i] * BF[CurrBFFont].Height; 
print_char(x, y, BF[CurrBFFont].Color, 

BF[CurrBFFont].Height, PatPtr); 
x += BF[CurrBFFont].Width; 

1 

)/* PrintBF */ 

void SetBFFont(unsigned Which) 

{ 

if(BF[Which].FontPtr == NULL) 

CurrBFFont = 0; 
else 

CurrBFFont = Which; 

)/* SetBFFont */ 

void SetBFColor(unsigned Which, unsigned Color) 
{ 

/* make sure color is within range */ 

Color * Color & OxF; 

BF[Which].Color » Color; 

}/* SetBFColor */ 

/* End of File */ 
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Extensions And Improvements 

The first and foremost improvement would be to write the 
screen writing routines in assembly language. The screen writ¬ 
ing routines show acceptable speed even on an old 4 MHz 
clone I have hanging about. Assembly language would give 
screen writing a little boost. 

Second, the routines only handle fonts that are eight pixels 
wide. The nine-pixel monochrome fonts are also available and 
could be written with some changes to print_fonf() to ac¬ 
count for the extra width. 

All of these routines and more are in a group of libraries 
that have been ported to Borland C and TopSpeed C, Turbo 
Pascal, Stony Brook Pascal+, TopSpeed Modula-2, and Stony 
Brook Modula-2. All libraries are written in the particular high- 
level language and are available from the author. □ 


Listing 3 


#inc1ude<stdio.h> 

#include<dos.h> 

#include<stdlib.h> 

#include<string.h> 

#include<bfont.h> 


void mainfint argc, char *argv[]) 

{ 

struct REGPACK Regs; 
int x, y; 

Regs.r_ax = 0x0012; 
intr(0xl0, &Regs); 

SetBFonts(); 

for(x = 1; x < 100; x += 2) 

EGAB1ock(0, x, 100, 1, 4); 
getch(); 

for(x = 0, y = 0; y < 100; ++x, y += 4) 

{ 

SetBFColor(0, x); 

PrintBF(x, y, "This is a test!!!"); 

} 

getch(); 

SetBFColor(0, 10); 

PrintBF(10, 120, "ROM 8x8 Font' 1 ); 
SetBFColor(BF8xl4, 9); 

SetBFFont(BF8xl4); 

PrintBF(10, 130, "ROM 8x14 Font 1 '); 
SetBFColor(BF8xl6, 13); 
SetBFFont(BF8xl6); 

PrintBF(10, 150, "ROM 8x16 Font"); 
getchQ; 

Regs.r_ax = 0x0001; 
intr(0xl0, &Regs); 


/* End of File */ 


Test Program for BIOS Fonts 
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A Fast Get-Length-Of-ASCIIZ Routine 


Stephen Nebel 


If Necessity is the Mother of Invention, the routine 
in this article is one of the children. The routine 
provides the quickest way to find the length of ASCIIZ 
strings that I know. 

Necessity arose from the fact that I do a lot of 
programming of .BIN modules as assembly language 
supplements to dBase. dBase allows the programmer 
to pass up to seven parameters to a .BIN module. 
The parameters must be passed as ASCIIZ strings. The 
. BIN routine is handed a block of seven far pointers at 
ES:DI- these are pointers to the actual strings in 
memory. This is the only information the .BIN routine 
gets. 

Error trapping and other manipulations involving 
these seven strings is simplified if the program first 
determines, then stores the string lengths. These 
lengths are only accurate for the current call to the 
.BIN routine. The passed strings may be generated on 
the run by dBase, and the next call may pass strings of 
a different length. The string lengths can vary even 
though the calling dBase code is in a tight, record-in¬ 
tensive loop. 

The only reliable practice is to take the length of 
every parameter every time the .BIN routine is called. 
This requirement makes the get-length-of-ASCIlZ 
routine a prime target for optimization. 


Because performance evaluations of assembler 
routines can be affected by conditions on entry, let me 
specify the ground rules. First, a 100-character string 
(to be scanned) is defined in the code segment of the 
file, with a zero byte to terminate the string at the 
101st position. Second, at the start of a test run, CS, DS 
and ES have the same value as the CS segment where 
the string is defined. Finally, nothing else is known. 
Routines must set the direction flag and load any ad¬ 
dressing and counter information they need. A test run 
ends when the routine loads the length of the target 
string, not including the terminating zero, into the CX 
register. 


Steve Nebel is a computer consultant and writer in Fairbanks, 
AK. He can be reached at P.O. Box 2550, Fairbanks, AK 99707. 
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Timing for the test runs was per¬ 
formed with the Zen Timer from 
Michael Abrash's Zen of Assembly Lan¬ 
guage, Volume 1 (Scott, Foresman and 
Company: Glenview, Illinois, 1990). If you 
are serious about maximizing the per¬ 
formance of your code, buy this book. 
The Zen Timer has a resolution of 1 
microsecond but an accuracy of per¬ 
haps 10 microseconds. To compensate 
for variances in individual test runs, I 
modified the timer to perform 100 runs 
of the test code. All times given in this 
article are in microseconds and are the 
average of five runs of 100 iterations. 


Listing 1 is a short program fragment 
which represents the code to beat. List¬ 
ing 1 uses the standard SCASB instruc¬ 
tion to locate the zero terminator, then 
decrements the ones complement of CX 
to return the length. 

Listing 1 provides a fast means of 
locating a terminator zero, but other 
routines can go faster. Listing 2 shows a 
word-oriented approach to the search. 
The rest of this article will explore the 
techniques buried in Listing 2. 

The logic of the LODSW version of the 
code in Listing 2 is fairly straightforward. 


The effect of the code in practice is less 
so. There is good news and bad news. 

Here's the idea behind the logic. Ac¬ 
cording to the Intel specifications for 
best case execution, the 8088 can ex¬ 
ecute a single SCASB in 15 clock cycles. 
In theory then, the 8088 will scan a 
101-character string in approximately 
1515 ticks of the clock. Translated to 
microseconds at a clock rate of 4.77 
MHz, a scan of this type should take ap¬ 
proximately 322 microseconds, which 
agrees well with the clocked time of 
326 microseconds. The slightly longer 
period of the actual timing is probably 
due to contention for the bus during 
periods of DMA refresh. DMA refresh oc¬ 
curs every 72 clock cycles and takes 4 
cycles to complete. The processor can 
continue to execute instructions already 
in the Execution Unit (EU) during DMA 
refresh, but if the processor has to send 
out for data, then it must wait until the 
DMA refresh is completed. 

As noted, SCASB is a fast way to find 
the zero byte at the end of an ASCIIZ 
string, but SCASB is byte-oriented, after 
all, and perhaps WORD size versions of 
the string instructions could be faster. 
Listing 3 is a sequence that has glim¬ 
merings of promise. The obvious prob¬ 
lem is that using LODSW takes 39 ticks 
(clock cycles) to handle two bytes, 
whereas two SCASB instructions take 
only 38 ticks. But, this arrangement per¬ 
mits in-line code and unrolling the loop. 
So the routine can use a higher propor¬ 
tion of the faster instructions, and mini¬ 
mize the effect of the cycle-intensive 
jump backwards of JNZ. In terms of in¬ 
struction execution cycles, the se¬ 
quence in Listing 4 looks better. 

In most traverses of the loop in this 
sequence, the JZ jump will not be 
taken. For a four-byte sequence, this 
code requires only 58 execution cycles 
(16 + 3 + 4 + 16 + 3 + 16), or 14.5 cycles 
per byte processed. This compares 
favorably to the 19 cycles per byte of 
the SCASB instruction. If the code in¬ 
cludes more LODSW blocks, the ratio is 
even more favorable, since each two- 
byte L0DSW/TEST/JZ sequence requires 
only 23 cycles to execute, or 11.5 cycles 
per data byte. With ten LODSW blocks, 
the execution cycles for 20 data bytes 
is 230 + 12, or 242 cycles (the + 12 is 
required for the jump back), or 12.1 
cycles per data byte. For 100 bytes plus 



Listing 1 

string DB 

"This is a string",0 

cld 

; clear direction 

mov cx.Offffh 

; set counter 

mov di,offset 

string ; load offset 

mov al,0 

; load comparison value 

repnz scasb 

; find the zero 

not cx 

; take ones complement 

dec cx 

; adjust length 

; End of File 



SCASB Method of Finding Terminator Zero 



Listing 2 

string DB 

"This is a string",0 

cld 

; clear direction 

mov cx.Offffh 

; set counter 

mov di,offset string ; load offset 

mov al,0 

; load comparison value 

repnz scasb 

; find the zero 

not cx 

; take ones complement 

dec cx 

; adjust length 

; End of File 



LODSW Method of Finding Terminator Zero 





Listing 3 

repeat: 

1 odsw 


1 byte 

16 ticks 

test 

ah,al 

2 bytes 

3 ticks 

jnz 

repeat 

2 bytes 

16 ticks if jump, 4 if not 


repeat: 




Listing 4 

lodsw 


1 byte 

16 

ticks 

test 

ah,al 

2 bytes 

3 

ticks 

jz 

quit 

2 bytes 

16 

ticks if jump, 4 if not 

lodsw 


1 byte 

16 

ticks 

test 

ah.al 

2 bytes 

3 

ticks 

jnz 

quit: 

repeat 

2 bytes 

16 

ticks if jump, 4 if not 
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the zero terminator, the total time re¬ 
quired for the sequence is 1,229 cycles, 
better than the 1,515 cycles required 
for a SCASB sequence. 

Unfortunately, the limiting factor 
here is not the best case speed of ex¬ 
ecution of the instructions once they’re 
in the Execution Unit, but the time it 
takes to load the instructions via the 
Bus Interface Unit (BIU). The 8088 per¬ 
forms a fetch from memory in four 
ticks. Memory fetches, due to the eight- 
bit width of the bus, are limited to a 
single byte. This is not a problem in 
fetching the single-byte LODSU instruc¬ 
tion. LODSU takes four ticks to fetch and 
16 ticks to execute. Instruction fetching 
and instruction execution can occur at 
the same time, and the instruction 
queue has time to fill. 

But TEST AH,AL, which takes three 
cycles to execute, and eight cycles to 
fetch, and JZ SCAN_QUIT, which takes 
four cycles to execute (with no jump), 
and eight cycles to fetch, clear the 
prefetch queue faster than it can be 
filled. Thus, instead of the best case 
timing of 242 ticks for the sequence of 
ten LODSU blocks described above, the 
actual fetch and execute requires 68 
microseconds, or approximately 324 
ticks. 

So that’s the bad news, which brings 
us to Figure 1. 

Figure 1 probably raises as many is¬ 
sues as it resolves. Figure 1 provides ex¬ 
ecution times for both the SCASB and 
LODSU versions of the routine on a 
range of processors. Figure 1 also intro¬ 
duces another factor affecting the per¬ 
formance of memory-oriented instruc¬ 
tions: data alignment. 

Here is how you read the tables. For 
each of the six sections, the top line in¬ 
dicates the type of processor, its clock 
speed, and its performance on the Sys¬ 
tem Information benchmark SI. EXE, in¬ 
cluded with the Norton Utilities, v4.5. 

The second line down indicates 
whether the data alignment was EVEN 
or ODD for the tests. The tests for each 
processor were run twice, once with 
EVEN alignment and once with ODD. The 
tables list the percentage gain or loss 
for both conditions. 

The third line down represents the 
results for the SCASB version of the 
routine, the time to beat. 


The remainder of the lines present 
the timings for the LODSU version with 
different numbers of in-line LODSU 
blocks. 

As section one of Figure 1 makes 
clear, no scheme can beat the instruc¬ 
tion fetching bottleneck on the 8088. 
With 25 in-line LODSU blocks, the 
routine still loses approximately eight 
percent compared to SCASB. Moreover, 
there is a natural barrier to adding fur¬ 
ther in-line blocks. 

With 25 blocks, the JNZ is 125 bytes 
downstream from the loopback point. 
With one more block, the code exceeds 
the maximum jump range of the JNZ 
instruction (127 bytes). 

For every processor with a 16-bit 
bus, LODSU beats SCASB by a fair mar¬ 
gin. The Execution Unit of the 8086 is 
identical to that of the 8088. But, the 
Bus Interface Unit of the 8086 can fetch 
data a word at a time. With five in-line 
LODSU blocks and a data alignment of 
EVEN, we beat SCASB by 24 percent. 


Even with a data alignment of ODD, we 
still beat SCASB by 11 percent. The story 
is much the same for the processors in 
sections two through six. 

Note that the benchmark times for 
SCASB are the same whether the data is 
aligned ODD or EVEN. This is because in 
single byte fetches, an ODD data align¬ 
ment does not force a double fetch, as 
it does with WORD fetches. 

An interesting quirk is the SCASB 
timings for the 80386SX and 80386DX 
chips. Both processors are running at 
16MHz. The 80386SX is similar to the 
8088 in that the width of the bus does 
not match the internal width of the 
processor. The 8088 has a 16-bit proces¬ 
sor attached to an 8-bit bus. The 
80386SX has a 32-bit processor at¬ 
tached to a 16-bit bus. 

But compare the benchmarks for 
SCASB for the 80386SX and 80386DX. 
Both processors have the same clock 
speed, but the 80386DX, with its 32-bit 
bus, executes SCASB slower than the 
80386SX. Unlike the other processors, 
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the 80386DX performs a double word 
fetch each time a memory access is 
performed, whether it needs all the 
data or not. The constant fetching of 
this double word across alternating 
EVEN/ODD alignments may be respon¬ 
sible for the performance lag relative to 
the 80386SX. 

As a final note, there are some “flat 
spots” in the data. For instance, look at 
the timings for the 8086 at ODD align¬ 
ment with seven or eight LODSU blocks. 
The division of a progressive series of 
LODSU blocks into a target string with a 
fixed length of 101 bytes probably ac¬ 
counts for this lack of improvement. 

To optimize performance, one step 
that is relatively unambiguous is to 
make sure all major data transfer buf¬ 
fers are aligned EVEN. Line 13 of Listing 
5 shows how the assembler's ALIGN 
directive is used. When MASM en¬ 
counters an ALIGN 2 directive, it checks 
its location counter to determine the 
alignment. If the alignment is ODD, 
MASM inserts a one-byte NOP instruction 
to force an EVEN alignment. 

Beyond simple data alignment, 
things are not so clear cut. If your pro¬ 
gram does not spend much time deter¬ 
mining the length of ASCIIZ strings, file 
this article for future reference and use 
a SCASB instruction sequence. The 8088 
won’t lose any speed, but the other 
processors won't gain any either. 

For code that will only run on the 
80286 and above, the deciding issue is 
code size. The SCASB version of the 
routine requires only 14 bytes. The 
LODSU version is 28 bytes in size with 
one LODSU block. Additional blocks add 
five bytes each. The trade-off here is 
size versus speed, and the optimal 
balance will depend on the particular 
application. 

To optimize speed on all hardware 
platforms (and sacrifice space) use the 
code in Listing 5. 

Listing 5 is a processor-sensitive 
routine that determines the bus width 
of the hardware platform, and initializes 
the search routine to either the SCASB 
or LODSU version accordingly. 

The routine GET_BUS_UIDTH at line 
46 should be run once at startup. 
GET_BUS_UIDTH detects the bus width 
of the current environment. Armed with 
the data from Figure 1, a technique be¬ 
comes clean simply run a BYTE version 


and WORD version of any instruction 
that accesses EVEN aligned data in 
memory. Kill two birds with one stone 
by reading the least significant byte or 
word of the clock count in the BIOS 
data area. This allows us to use the 
known interval of the system clock of 
1/18th of a second and also provides 
the memory reads for the comparisons. 
If the difference is equal to or less than 
two percent, assume the processor is 
fetching bytes or words with equal ease 
and is therefore not an 8088. If the dif¬ 


ference is greater than two percent, as¬ 
sume we have an 8088 under the hood. 

The routine patches the GET_LENGTH 
address as needed. This avoids a 
branching instruction. 

You can adjust the count for the 
REPT macro at line 127 to assemble 
whatever number of in-line blocks you 
think is right for your application (see 
Listing 5). □ 
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Listing 5 (asciiz.asm) 

ASSUME CS:code,DS:code,ES:code 

0RG 

00h 


: ====== 

==== Routine to Do Initialization and Test Run ===-== 

setup proc near ; main procedure 

jmp 

SHORT start ; jump over data to code start point 

ALIGt 

2 


string DB “xxxxxxxxxxxxxxxxxxxxxxxxx" 


DB "xxxxxxxxxxxxxxxxxxxxxxxxx" 


DB "xxxxxxxxxxxxxxxxxxxxxxxxx" 


DB “xxxxxxxxxxxxxxxxxxxxxxxxx",0,0 

add scasb DW scasb version 

get_length DW lodsw version 

start: 



push ds 

set up stack 

sub 

ax, ax 

for return 

push 

ax 

to DOS 

push 

cs 

align cs 

push 

cs 

with ds 

pop 

ds 

and es 

pop 

es 


call 

get bus width 

routine to set address 

mov 

cx,offset string 

load pointer to string 

cal 1 

get length 

get length of string into CX 

ret 



setup endp 


» 

» Routine to Determine 

Bus Width of Current Machine ===== 

get bus width proc near 


push 

ds 

save data segment 

sti 


make sure interrupts are on 

cal 1 

start count 

routine to start on next tick 

empsb loop: 


emp 

bl,ds:[046Ch] 

next clock tick yet? 

loopz empsb loop 

just loop if not 

not 

CX 

take ones complement 

mov 

ax,cx 

store the value 

call 

start count 

routine to start on next tick 

empsw loop: 


emp 

bx,ds:[046Ch] 

next clock tick yet? 

loopz 

empsw loop 

just loop if not 

not 

CX 

take ones complement 

pop 

ds 

restore data segment 

emp 

ax.cx 

byte emps equal word emps? 

jbe 

init quit 

if so go with status quo 

sub 

ax,cx 

else get the difference 

sar 

ax,l 

scale down to stay in range 

sar 

cx,l 

of registers 

mov 

bl,100 

get the percent scaler 

mul 

bl 

scale the difference up 

div 

CX 

get the percentage 

emp 

ax,2 

eight bit if the percentage 

jbe 

init quit 

difference is two or more 

mov 

si.offset add scasb 

point to routine address 

mov 

di.offset get length 

point to target address 

movsw 

move the address into place 
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Listing 5 - Cont’d 

init_quit: 


ret 


get bus width endp 



start count proc near 


xor cx,cx 

get a zero 

mov ds,cx 

point to BIOS area 

dec cx 

get OFFFFh into CX 

mov bx.ds:[046Ch] 

get the current clock tick 

start loop: 


cmp bx,ds:[046Ch] 

next tick yet? 

jz start loop 

if not just loop 

mov bx.ds:[046Ch] 

save tick value 

ret 


start count endp 



scasb version proc near 


cld 

clear direction 

mov di,cx 

load offset 

mov cx.Offffh 

set counter 

mov al,0 

load comparison value 

repnz scasb 

find the zero 

not cx 

take ones complement 

dec cx 

adjust length 

ret 


scasb version endp 



lodsw version proc near 


cld 

clear direction 

mov si,cx 

load offset 

repeat: 


REPT 10 

block replicate macro 

lodsw 

load word from string 

test ah,al 

zero yet? 

jz end repeat 

if so exit and adjust 

ENDM 

end of macro 

lodsw 

load word from string 

test ah.al 

zero yet? 

jnz repeat 

if not repeat 

end repeat: 


sub si.cx 

get unadjusted count 

mov cx,si 

move it to destination 

cmp al,0 

is lead byte zero? 

jz adj two 

if so adjust back two 

dec cx 

else adjust back one 

jmp adj end 

then exit 

adj two: 


sub cx,2 

adjust back two 

adj end: 


ret 


lodsw version endp 


» 

code ENDS ; end of code segment 


end setup ; end assembly 


; End of File 
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Microsoft Visual Basic Control Development Kit 

Ron Burk 


Basic programmers are used to resorting to C and assembly 
language subroutines for speed or convenience. Since Visual 
Basic provides access to any Windows dynamic link library 
(DLL), Visual Basic programmers implicitly have access to a 
variety of library routines from various vendors, most of them 
written in C. In addition to ordinary DLLs, however, you can 
create special DLLs for Visual Basic that extend the default 
Visual Basic user interface toolbox with new custom controls. 
This article looks at the Microsoft Visual Basic Control Develop¬ 
ment Kit (CDK), the basic tool for writing custom controls for 
visual Basic. 

Overview 

The CDK requires a compiler that can create Windows DLLs; 
the documentation assumes you will use Microsoft C. Ex¬ 
perience writing programs that use the Windows API is 
another prerequisite for creating a Visual Basic custom control. 
The main contents of the CDK consist of one object library, 
one C header file, and 157 pages of documentation. The kit 
also includes code for several examples referred to in the 
documentation. 

Visual Basic custom controls reside in . VBX files, but they 
are really DLLs with a specialized set of conventions. In par¬ 
ticular, the object library and header file in the kit allow you 


The Microsoft Visual Basic Control Development Kit is avail¬ 
able from Microsoft Corporation, One Microsoft Way, Red¬ 
mond, WA 98052-6399. To place an order, call (800) 426-9400. 


to call internal visual Basic functions from the code in your 
DLL (DLLs usually cannot call functions within the program that 
loaded them). This interface provides functions for manipulat¬ 
ing Visual Basic strings, communicating with other controls, 
and so on. The DLL you construct with the CDK should also 
contain bitmaps representing the icon that Visual Basic uses 
to represent your custom control in the Visual Basic Toolbox 
(so Visual Basic programmers can select it when designing a 
form). 

Most of the code in your custom control will belong to 
what the CDK calls the control procedure. This is basically the 
window callback function for your custom control. It takes the 
same arguments as a standard Windows window callback 
function with one addition: a handle to a control structure 
that you generally pass to internal Visual Basic functions. 

When Visual Basic initializes your custom control, you pass 
VB.EXE a set of data structures that defines the properties and 
events associated with the control. These properties and 
events will be visible to a Visual Basic programmer using your 
custom control in a form. You can get an idea of the capabilities 
of custom controls by examining these data structures. 

The Control Model 

Figure 1 shows the data structure you use to define a con¬ 
trol model. This is the structure you pass to Visual Basic in 
order to register your custom control during initialization. The 
structure contains or points to all the information Visual Basic 
needs to interact with your custom control. That includes 
static attributes such as the properties and events this control 
defines and the name of the control. 


Ron Burk has a B.S.E.E. from the University of Kansas and has been a programmer for the past 10 years. You may contact him 
at Burk Labs, P.O. Box 3082, Redmond, WA 98073-3082. CIS: 70642,2662. 






Figure 1 


typedef struct tagMODEL 
{ 

USHORT usVersion; _ 

FLONG fl; _ 

PCTLPROC pctlproc; _ 

FSHORT fsClassStyle; _ 

FLONG flWndStyle; _ 

USHORT cbCtlExtra; _ 

USHORT idBmpPalette; _ 

PSTR npszDefCtlName; _ 

PSTR npszClassName; _ 

PSTR npszParentClassName; 

NPPROPLIST npproplist; _ 

NPEVENTLIST npeventlist; _ 

BYTE nDefProp; _ 

BYTE nDefEvent; _ 

} MODEL; 



usVersion: The version of Visual Basic this custom control 
was developed for. 

fl: flags that enable certain optional Windows and Visual 
Basic messages. 

pctlproc: the address of the control procedure, 
fsdassstyle: window style bits for the control class. 
flWndStyle: style bits for the control window. 

cbCtlExtra: the size in bytes of the data structure you want 
to associate with each control (to contain properties, for ex¬ 
ample). 

idBmpPalette: the ID of the bitmap Visual Basic will use to 
represent this custom control. 

npszDefCtlName: the default control name for naming new 
instances. For example, if you use "MyControl," Visual Basic 
assigns default names like "MyControl 1,” "MyControD," and 
so on. 


npszdassName: the class name that uniquely identifies this 
custom control. 



npszParentClassName: the name of the parent class name 
if this is a subclass. 

npproplist a pointer to an array of pointers to property 
(PROPINFO) definitions. 

npeventlist: a pointer to an array of pointers to event 
(EVENTINFO) definitions. 

nDefProp: the index of the default property in the property 
definition list. 

nDefEvent: the index of the default event in the event 
definition list 


Defining the Custom Control Model 


The control model contains a resource ID for the bitmap 
Visual Basic will use to draw an icon representing the custom 
control. You actually have to supply four bitmaps starting at 
that ID number. The four bitmaps represent the icon in an up 
(normal) mode for VGA, Monochrome, and EGA, and a down 
(clicked) position for VGA mode (Visual Basic just inverts the 
image to form clicked versions of the Monochrome and EGA 
bitmaps). Visual Basic selects the best bitmap for the mode in 
effect at runtime. 

It is possible to build your custom control by subclassing 
an existing control. The CDK documentation provides an ex¬ 
ample of this by subclassing the standard Windows button 
control. This is typically less work than developing a custom 
control from scratch because you can usually let the parent 
control handle messages such as WM_PAINT, WM_SETTEXT, 
WM_GETTEXT, and so on. 

Properties 

Control properties are the data portion of the control. For 
example, the standard Visual Basic button has properties like 
Height, Width, FontName, and so on. You can define your cus¬ 
tom control with any of the standard Visual Basic control 
properties by using pointer constants defined in VBAPI.H. You 
can also define new custom properties and control what hap¬ 
pens when a Visual Basic programmer accesses or changes 


the property’s value. If the Settings box is not sufficient for 
setting the custom property, the Visual Basic API allows you 
to use a list box, custom pop-up window, or custom dialog 
box to set the property. 

Figure 2 shows the data structure you use to define cus¬ 
tom properties for a control. You can use both machine types 
(int, long, float, and so on) and internal Visual Basic types such 
as strings and pictures. The advantage of Visual Basic internal 
types is that Visual Basic manages the memory for variable 
length entities like strings and pictures; you merely have to 
use a handle. The disadvantage is that you have to be careful 
not to call a Visual Basic function while you are operating 
directly on a string that you have dereferenced from a handle. 
Such a call could cause the string to move as a result of 
memory management, invalidating your pointer. 

The CDK also allows you to define arrays of properties of a 
specific data type. The user cannot set any elements of a 
property array at design time, but they are handy for defining 
an array of strings. Property arrays require additional coding to 
handle array indexing during get and set operations. 

Events 

You can enable any of the predefined Visual Basic events 
for your custom control. These events provide information 
about mouse and keyboard input. Figure 3 contains the struc¬ 
ture you use to define custom events for a control. This structure 
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Figure 2 


typedef struct tagPROPINFO 
{ 

PSTR npszName; _ 

FLONG f1; _ 

BYTE offsetData; _ 

BYTE infoData; _ 

LONG dataDefault; _ 

PSTR npszEnumList; _ 

BYTE enumMax; _ 

} PROPINFO; 



npszName: the name of the custom property (a string). 
Visual Basic displays- this name in the Properties bar. 

fl: a set of flag bits. Twelve of the bits determine the data 
type (string, long, boolean, and so on) and other bits control 
various attributes of the property, such as whether it is 
read-only. 

offsetData: the offset of the property within the property 
data structure, if necessary. 


^ infoData: defines the offset of properties that are bit-pack¬ 
ed, rather than byte-aligned within the property's data 
structure. 

dataDefault: the default value of the property. 

npszEnumList: a pointer to a list of string values, for 
enumerated properties. 

enumMax: the maximum legal value of enumerated 
properties. 



Structure Defining a Custom Property 


defines the name of the event and the names and data types 
of the arguments to the event procedure. The Visual Basic 
programmer can then define an event procedure for this 
event. 


As part of defining a custom event, you have to decide 
when to generate this event in your control procedure. At 
that point, you call the Visual Basic API function, VBFire- 
Event() and pass it the index of the custom event and an 
array of pointers to the arguments for the event procedure. 


Ir 


’ i t 


Tired of the Way CONFIGSYS Boots You Around? 


Ill,, 


sale 


BOOTCON 



i 


,h: -ji 


Then Give Your CONFIG.SYS the Boot-With BOOTCON. 

". . . it's bulletproof... The interface is well thought out. You need this program." 
Dr. Jerry Pournelle, Byte, July 1990 

"Highly recommended." 

John C. Dvorak, PC Magazine, July 1990 

How many CONFIG.SYS and AUTOEXEC.BAT combinations do you have on your 
PC? BOOTCON eliminates the confusion by storing all your configuration 
information in just one set of configuration files. Each time you boot your PC 
you can select the configuration you want to use from a menu of up to 26 
choices. 

BOOTCON is ideal when you need to use conflicting programs such as Windows 
3.0, QEMM/386, 386max, Soft-ICE, and Lotus 123. A default configuration will 
automatically be used if you do not make a selection within the specified time-out 
period. BOOTCON also provides an optional password protection feature. 

BOOTCON lists for $59.95. 


MODULAR 

SOFTWARE SYSTEMS 


(818) 440-9104 FAX (818) 440 9240 

115 W. California Blvd. Suite #113, Pasadena, CA 91105 




i 


BOOTCON comes on both 5 1/4" and 3 1/2" disks, it has an unconditional 30-day money-back guarantee. MS-DOS or PC-DOS 3.10 or later is required. 

-o\. 1 Windows and MS-DOS are trademarks of Microsoft Corporation. PC-DOS is a trademark of International Business Machines Corporation. QEMM/386 is a trademark of Quarterdeck Office 

> i , Systems. 386 MAX is a trademark of Qualitas Corporation. Soft-ICE is a trademark of Nu-Mega Technologies. Lotus and 123 are trademarks of Lotus Development Corporation. 
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Figure 3 


typedef struct tagEVENTINFO 
{ 


PSTR npszName; 


USH0RT cParms; 

/ 

USH0RT cwParms; 

/ 

PW0RD npParmTypes; 

/ 

PSTR npszParmProf; 


F1.0NG fl; 

\ 

} 

EVENTINF0; 

\ 


npszName: the name of the event. Visual Basic displays 
this name in the Code window. 

cParms: the number of event arguments. 

cwParms: total number of words in the argument list. 

npParmTypes: pointer to an array of bytes that specifies 
the type (string, integer, long, and so on) of each argument. 

npszParmProf: a string containing the argument declara¬ 
tions Visual Basic inserts into the event procedure header 

fl: a flag to prevent unloading the corresponding form while 
this event is executing. 


Structure Defining a Custom Event 


VBFireEvent() does not return until the event procedure (if 
any) finishes executing. 

Conclusion 

Visual Basic is one of the more appealing environments for 
quickly creating Windows applications. The ability to extend 
the base Visual Basic Toolbox of controls with the Control 
Development Kit has spawned a market for add-on Visual 


Basic custom controls. Creating a new visual Basic custom 
control is not trivial, but the Control Development Kit 
documentation and sample code make it a less forbidding 
task. Many C programmers use development tools to create 
their windows, dialog boxes, and other aspects of a user inter¬ 
face. With the ability to call DLLs and create custom controls, 
Visual Basic may become the development environment of 
choice, even for some C programmers. □ 


A | - for Programmers 

Ajh Analyze, Organize, Arrange 

m Your source code environment 
* With the 4c Hypertext facility! 

The 4c Hypertext facility saves you time and money. 
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Here’s howl 

✓ Analyze: 


The Analyzer maps and cross-references 
functions and variables to their respective 
path and file names. This cross reference 
table can be displayed alphabetically and by 
type of variable. It allows a programmer to 
edit functions directly without specifying a 
fUe name. A great documentation aldt 


Versions Now Available: 

4c - Classic (the original wttti built In »dltor) 
4c - Brief (add 4c capability to Brief) 

4c - Windows (Windows 3.0 version of 4c) 


60 Day Moneyback Guarantee! 

No copy protection! 

Free Technical Assistance! 

For C & Pascal Programming Languages. 

✓ Organize: With our ZOOM key! N ° changes to source code required. 

- a Mastercard, Visa, Cod, PO, or check accepted 


Which Instantly locates any function, global, 
variable, structure definition, #deflne, or 
macro, etc., In any file, directory, and drive, 
and displays it In a new edit window. 

✓ Arrange: with our editor. 

Featuring multiple files, multiple windows, cut- 
and-paste between windows, search-and-replace. 
auto Indent, tab support, and a familiar user 
interface with pull down windows, or use your 
own editor! 


Only $119 US funds plus shipping. 

Call or Write Today! 
Tri-Technology Systems, Inc. 
1000 Jorle Blvd., Suite 52 
Oak Brook, II. 60521 
1-708-366-7595 

Editor Developers: 

Add 4c functionality to your Windows 3.0 editor! Call, regarding the 4c 
DDE Interface specification for your editor. 

Special with this ad only — $89 
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The User Interface Library for C 

Create Msf&COMP^T 
applications in C 

Vlib is a comprehensive library of over 300 easy 
to use C functions for building sophisticated PC 
applications 

♦ Menus ♦ Forms ♦ Memo Editor ♦ 

♦ Mouse Support ♦ Pop-up Messages ♦ 

♦ Pick Lists ♦ Dialog Boxes ♦ 

♦ Windows ♦ Borders ♦ and more ♦ 

Vlib produces the smallest, fastest programs of 
any C library! 

For Microsoft C and Quick C, Borland Turbo C 
and C++. All memory models. 

Free Demo Disk Available 
Call (408) 984-2256 
Pathfinder Associates VMAN $ 49 

291 Madrone Ave., Santa Clara, CA 95051 online manual for 
FAX (408) 244-5665 BBS (408) 246-0164 VLIB. 


VLIB $ 149 

libraries, manual, 
and source code. 
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TECH Tips 



Leor Zolman 


Please send us your best 
tricks and hacks — those 
clever pieces of code to 
make things work the 
wag they should! You'll 
receive at least $50 for 
each tip that we print 

Send your submissions to.- 
TECH Tips 
Leor Zolman 

1601 W. 23rd St., Ste. 200 
P.O. Box 3127 
Lawrence, KS 66046-0127 


Detecting And Interfacing To NetWare 


Bart Stewart 
Computer Sciences Corp. 
3001 Centreville Rd. M/C 293E 
Herndon, VA 22070 

One way to write programs that take advantage of the Novell NetWare LAN 
operating system is to purchase Novell’s network C compiler, based on the 32-bit 
Watcom compiler. If your development time is at a premium or you have money to 
burn, this package makes NetWare LAN programming about as simple as it's going 
to get, by providing a library of network support functions. If you need to write 
NetWare Loadable Modules (NLMs) for NetWare 386, it's the only game in town. 

But if all you need are applications running on user machines, it's possible to call 
Novell’s system functions directly, rather than relying on their libraries. The key lies 
in the way Novell designed the functions. Except for a few very simple calls and a 
couple of oddball cases, values are passed to a NetWare function in a request buffer 
(pointed to by the DS:SI register pair) and returned in a reply buffer (pointed to by 
the ES:DI register pair) via interrupt 21 hex. (Some of you may recognize interrupt 
0x21 as the interrupt number for DOS system calls. The NetWare drivers intercept 
int 0x21 calls, test register AH to see if it contains a NetWare function, and if not, 
pass it on to DOS.) The pseudocode for a generic NetWare call looks like this: 

/* memory segments where buffers are located */ 
register ES = register DS 
initialize request buffer values 
initialize reply buffer member "length" to sizeof 

buffer 

register AH = NetWare function number 
register SI = address of request buffer 
register DI = address of reply buffer 
call interrupt 21(hexadecimal) 
examine register AL for return code 

The simple example of testing for the presence of a NetWare LAN is shown in 
Listing 1. Simply pass the value OxDC in register AH to DOS via interrupt 0x21. The 
value OxDC requests NetWare function call Get Connection Number, which takes no 
parameters and returns the caller’s connection number in register AL. This return 
value can range from 1..100 for NetWare 2.2 and earlier, or from 1..250 for NetWare 
386, NetWare 3.11, or later. A return value of 0 indicates that no active connection 
was found. 



A long time ago, Leor Zolman wrote and distributed the BDS C Compiler for CP/M 
(what's that?). Following a several-year hiatus from computer-compulsiveness to learn 
some people skills, he got married, dragged his disbelieving wife to Kansas and joined 
the staff of R&D Publications, inc. Two years later his wife has almost forgiven him. 
You can reach him at leor@rdpub.com or uunet’bdsoftlrdpub! leor. 



















Listing 2 provides a more complete 
example of how to test for a “live” Net¬ 
Ware session. It contains two Netware 
calls. The first call tests for a valid Net¬ 


Ware connection. You might be asking 
yourself, “Isn’t that all I need to do?” I 
thought so, too, but it turns out that 
logging in to a Novell network requires 


Listing 1 

/* 

* Check for NetWare connection 

* (written for Borland C) 

*/ 

linclude <stdio.h> 
linclude <dos.h> 

struct REGPACK r; /* make 80x86 registers available */ 

int main(void) 

{ 

r.r_ax = OxDCOO; 

intr(0x21,&r); /* Get connection number */ 

if ((r.r_ax & OxOOFF) > 0) 

printf("You have NetWare connection #%d.\n“,(r.r_ax & OxOOFF)); 
else 
( 

puts("You're not logged in to a NetWare LAN."); 
return(1); 

) 

return(0); 

) 

/* End of File */ 


The Measure of 
a Great Program. 


PC-METRIC™: The Measurement Tool For Serious Developers. 



PC-METRIC is the software measurement tool 
that measures your code and identifies its most 
complex parts. So you can spend your time 
working in the areas most likely to cause 
problems. 

PC-METRIC is fast, user-configurable, and 
includes a wide array of commonly accepted 
measurement standards. 

Plus, versions of PC-METRIC are available to 
support virtually every popular programming 
language. 

A Great Value By Any Measure. 

PC-METRIC’s price is only $199, and it comes 
with a 30-day money-back guarantee. Multiple 
user discounts are available, as well as site 
licenses and complete source code. 


Order Now! Call (503) 829-7123. 



SET LABORATORIES, INC. 

Quality Tools For Software Craftsmen" 
P.O. Box 868 
Mulino, OR 97042 
Phone: (503) 829-7123 
FAX: (503) 829-7220 


COMPUTER 
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two steps: attaching to the network (es¬ 
tablishing a valid user connection by 
loading the network drivers) and logging 
in (starting up a current network shell). 
What this means is that you can be at¬ 
tached to a network with a valid con¬ 
nection number, but unable to use 
most NetWare functions because you 
haven't logged in yet. Since Novell 
doesn't provide a function to detea a 
“live” network session, we can use a 
second funaion call (Get Connection 
Info) and test for valid information in 
the reply buffer. In the example of List- 
ing 2, the structure member 
gci_rep.objectname is a character 
string buffer which should contain a 
null-terminated userid if the call is 
made by a currently aaive session. 

There are several things you should 
keep in mind if you plan to use these 
funaions. The first is, "What happens if 
the NetWare drivers aren’t loaded?” 
Theoretically, the results (as they say) 
are unpredictable. However, in three 
years of active use, I’ve never en¬ 
countered a problem making any Net¬ 
Ware calls in this fashion, including 
being run under Windows 3.0. 

Second, “Do these work for all ver¬ 
sions of NetWare?" Well, these two 
funaions do. Others don’t. When Novell 
released NetWare 386 3.0, they 
eliminated some funaion calls, such as 
those for record locking, high-level mes¬ 
sage passing, and diagnostic informa¬ 
tion. For example, where the Novell sys¬ 
tem utility FC0NS0LE under Netware 
2.15 showed you some ten kinds of 
useful information, the 386 version 
gives you only four! (Aaually, some of 
the calls weren’t eliminated, the func¬ 
tion numbers were changed and left 
undocumented. Several third-party 
software developers have filled the gap 
by locating the lost diagnostic funaions 
and writing utilities which use them. I’m 
sure it’s just coincidence that Novell has 
released its own add-on diagnostic and 
communications packages...) So if you 
manage to dig up NetWare 286 
documentation (I use the API Reference 
from the Fourth Annual Developer’s 
Conference), but find yourself writing to 
NetWare 386, be advised that some 
functions may not work. Don’t panic. 
The worst that can happen is that your 
reply buffer will come back empty. 
(That's small consolation, though, when 
some yahoo has locked up every record 
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in your database, but you can no longer 
find out which user it is because they’re 
logged in to a Netware 386 server. 
Novell? Are you listening?) 

Third, “Do these work only in C?” 
Nope, they work just fine in other lan¬ 
guages, including Pascal and BASIC. In all 
languages, though, there is a catch. Net¬ 


Ware was originally written for a “big- 
endian” processor architecture, in which 
multibyte numbers are represented in 
such a way that the most significant 
byte is encountered before the least 
significant byte. This differs from the 
Intel (and thus, IBM PC) strategy of put¬ 
ting the least significant byte first, but 


Listing 2 


/* Written for Borland C */ 


#include <stdio.h> 
#include <dos.h> 

struct 

{ 

int length; 
char sfunction; 
char connection; 

) gci_req; 

struct 

( 

int length; 
long objectid; 
int objecttype; 

char objectname[48]; 
char log_year; 
char logjnonth; 
char log day; 
char log_hour; 
char log_min; 
char log_sec; 
char log_daynum; 
char filler; 

) gci_rep; 

struct REGPACK r; 

int main(void) 

{ 

/* Borland-specific; 
r.r_ds = _DS; 
r.r_es - _DS; 


/* Get Connection Info request struct */ 

/* length of request buffer */ 

/* subfunction number */ 

/* connection number */ 


/* Get Connection Info reply struct */ 

/* length of reply buffer */ 

/* Bindery ID */ /* hi-lo! */ 

/* type of bindery object */ /* hi-lo! */ 

/* l'USER, 2=GR0UP, 3=PRINT SERVER, etc. */ 
/* name of bindery object */ 

/* (80 » 1980, < 80 = 21st century) */ 

/* 1..12 */ 

/* 1. .31 */ 

/* 0..23 */ 

/* 0..59 */ 

/* 0. .59 */ 

/* 0..6 (0 = Sunday) */ 


/* make 80x86 registers available */ 


uses pseudoregister _DS */ 


r.r_ax * OxDCOO; 

intr(0x21,&r); /* Get connection number */ 

gci_req.connection * (char) (r.r_ax & OxOOFF); 
if Igci_req.connection > 0) 

( 

gci_req.sfunction = 0x16; 

gci_req.length = sizeof(gci_req); 

gci_rep. length = sizeof(gci_rep); 

r.r_si * (int)&gci_req; 

r.r_di * (int)&gci_rep; 

r.r_ax » 0xE300; 

intr(0x21,&r); /* Get connection info */ 

if (gci_rep.objectname[0] !■ 1 \0 1 ) 
printf(“%s has NetWare connection #%d.\n“, 
gci_rep.objectname,gci_req.connection); 

else 

gci req.connection - 0; 

I 

if (gci_req.connection -- 0) 

( 

puts("You're not logged in to a NetWare LAN."); 
return(1); 

) 

return(0); 

} 

/* End of File */ 
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NEW! Text & Graphics! 

By including SLATE, you can 
print both Text and Graphics 
on over 400 printers. 
Immediately! Painlessly! 

You can use SLATE in your 
product with no royalties. 

Make your product more 
functional and competitive by 
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advanced text features: 
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system. 

• Output to parallel printers, serial 

printers, DOS files, console, DOS 
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printers. 

• Support proportional fonts laser 

printer soft fonts. 

• Set exact print positions. 

You can add the NEW Graphics 
Subsystem for advanced 
graphics features: 

• Print images from the screen, graphic 

files, or custom image systems. 

• Scale and Rotate the printed image. 

• Convert colors to patterns. 

• Print grey scale (shaded) and color 

images. 

• Intermix text and graphics. 

What is SLATE? 

SLATE is a set of C libraries 
with over 150 text printing 
functions, a Database of over 
400 printers, and tools for end 
user configuration and testing. 

SLATE with Graphics adds 
over 60 graphic printing 
functions. 
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Order SLATE for $299 or 
SLATE with Graphics for 
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return policy. 

We accept Visa, Mastercard, COD’s or 
PO’s from qualified companies. Source 
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are available. Also ask for information 
about our S_PRINT Text Formatting 
System for Software Developers. 

800-346-3938 
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Columbus, OH 43226 
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FAX 614-431-5734 
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the NetWare functions didn't change. 
This means that you've got to swap the 
bytes yourself. It's not difficult, but 
you'd better know when to do it. Look 
at the structure of the reply buffer in 
Listing 2. See the members objectid 
and objecttype. Suppose you call this 
function and don't swap the bytes of 
objecttype. Instead of seeing the value 
0x0001, you’ll see 0x0100, or decimal 
256. Reference array member number 
256 in a 10-member array in a language 
that doesn't do run-time array bounds 
checking, and you're headed for big 
trouble. 


system! The following short segment of 
assembler code will prevent a Print- 
Screen from ever happening. The code 
sets a flag in the BIOS area of RAM 
which effectively fools DOS into thinking 
a Print-Screen is currently in progress. 
Since no Print-Screen is actually in 
progress at the time this program is 
run, the flag will never be cleared and 
DOS will refuse to perform a Print- 
Screen. 

XOR AX,AX 
MOV DS.AX 

MOV BYTE PTR [0500],01 
RET 



Preventing Print-Screen, 
Revisited 


Douglas D. Farren 
33001 Vine St. F201 
Willowick, OH 44095 


Accidentally hitting the Print-Screen 
(PrtSc) key is not only embarrassing 
but can be a major headache if your 
printer is not currently attached to your 


The beauty of this method of blocking a 
Print-Screen is that it does not involve a 
TSR or a device driver. No code is left 
behind and no RAM is used. 

Even though this topic has been 
covered in a previous column, I 
couldn't resist bringing you Douglas’s 
grin-inspiring approach... 

Figure 1 shows the precise se¬ 
quence of debug commands I used to 
create a . COM file for this program. The 



Drawbridge 

Source Code Generating Graphics 
Editor and Screen Prototype Tool 


Drawbridge™ spares you the tedious, error-prone task of programming graphics displays. 
You know how hard it is to create graphics and prototype screens by trial and error. It 
seems to take forever to get everything in the right position. And then there’s the 
experimenting with colors, pen patterns, fonts, etc. 

Drawbridge will forever change the way you create graphics screens. Create the screen 
with Drawbridge’s interactive editor. The program keeps track of what you draw and where 
you draw it. You can change the display until it’s exactly the way you want it. When 
you’re done, Drawbridge generates a file of source code calls to your graphics library. Add 
the generated file to your program, compile, link, and you’re all done! 

Since Drawbridge generates source code, you can modify the output however you like. 
And since the source code is compiled with your own program, you’re not tied into having 
a separate image file for each display. 

If you’re new to graphics programming, Drawbridge will make it easy for you to create 
complex graphics right from the start. Experienced programmers will appreciate the 
incredible time savings that interactive editing and code generation provides. Drawbridge- 
the only interactive graphics editor designed specifically for programmers. 


Free Demonstration: Download from our 
BBS at (217) 359-6165 or call us to get a 
free demo disk and a product brochure. 


Borland® BGI (C or Pascal) . $89 
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Microsoft® (C). $89 


Courseware Applications, Inc. 

481 Devonshire Drive • Champaign, IL 61820 
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name I gave the executable file is 
NOPRINT.COM. -Iz 



Runtime Error Handling 
In Turbo Pascal 


Deakjahn, Gabor 
2A Julia Rd 
1026 Budapest 
HUNGARY 


If you use Turbo Pascal to develop 
application software, you certainly do 
not want your customer to blame you 
after having lost some data due to an 
irritating “Runtime error nnn at 
xxxx:xxxx." However, that message is 
the only error handling activity Pascal 
provides on division by zero, uninitial¬ 
ized object, or other similarly fatal er¬ 
rors. 

Of course, a well-written program 
should not commit suicide in such a 
brutal way. You may need to take run¬ 
time error handling into your own 
hands in order to give your program 
and/or the user an opportunity to quit 
in a non-destructive manner. 

Turbo Pascal helps you to solve 
similar problems when dealing with I/O 
operations (the $1 directive) or heap al¬ 
location (HeapError function), but it has 
no built-in way to make a program 
resume operation after a fatal error has 
occurred. Listing 3 shows a simple im¬ 
plementation of a User Defined Runtime 
Error Handler. 

The idea behind the code is simple. 
On initializing your application, we 
make the system variable ExitProc 
point to our Runtime Error Handler, 
after having saved its previous value 
(the entry point of Turbo Pascal's own 
exit code). For later use we also save 
the contents of the data segment 
register. Now Turbo Pascal calls our 
Runtime Error Handler as part of the 
exit code chain for any termination re¬ 
quest, should it be a runtime error, a 
halt procedure, or simply the end of the 
program. Before intentionally leaving 
the program, we must restore the 
original value of ExitProc-, without that, 
there would be no way out. 

The Runtime Error Handler itself is 
very simple. First of all, just like any 
other routine which has its entry address 
passed to a pointer variable, it must be 
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Figure 1 

debug noprint.com 

(invoke debug) 

alOO 

(assemble at 100b) 

xor ax,ax 

(the program...) 

mov ds,ax 


mov byte ptr[0500],01 


ret 


rex 

(prepare to set register CX) 

a 

(length of the program) 

w 

(write 0a [hex] bytes) 

q 

(return to DOS) 


Midnight Vipers 


compiled in the $F+ state of the com¬ 
piler. 

The body of the error handler is up 
to you. You can simply emit an error 
message or take measures to correct 
the fault - ExitCode gives you the run¬ 
time error code as it is described in 
Turbo Pascal Manual or in the online 
help system. Be aware that program 
flow will resume after the instruction 
that failed, with its result probably 
being invalid. Try to make the error 
handler body as safe as possible: any 
fatal error inside the handler will issue 
the original Turbo Pascal runtime error 
message, immediately aborting the pro¬ 
gram. 

The ending part of the error handler 
does the work. We pop three word 
values from the stack (flags, return ad¬ 
dress offset, and segment), left there by 
the routine which called our handler, 
and substitute them with the address 
of the instruction following the faulty 
one. Then, upon returning from our 
error handler, program flow will con¬ 
tinue there. 

If you are using Turbo Pascal 6.0, 
you can use the code as it appears in 
Listing 3. If you only have version 5.x, 
use the inline statement from Listing 4 


instead of the code bracketed by asm 
and end-, in the Runtime Error Handler 
procedure. 

I've never used Turbo Pascal 
myself, so I passed this Tip along to 
Ron Burk for testing. Here is what Ron 
had to say: 

“The answer from the TP experts is 
that the code works, but not if the ex¬ 
ception occurs in a TPU (Turbo Pascal 
Unit). If the error occurs in a TPU, the 
code in the Tip may send the instruc¬ 
tion pointer to God-knows-where 
(which they demonstrated with a little 
example). So, the tip works with one 
significant caveat." 


Philip j. Erdelsky 
4092 Ohio Street 
San Diego, CA 92104 


If you turn off your PC at five o’clock 
and go home, you have nothing to fear 
from the dangers I’m about to describe. 
But if you often work into the wee 
hours of the morning, bewarel There 
are vipers lurking in your PC, waiting 
under cover of darkness to strike at 
midnight. As you might expect, the 
vipers have something to do with the 
way the BIOS and DOS handle the date 
and time. 
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Listing 3 

program UserRuntimeErrorHandling; 
var 

ExitSave : pointer; { System's exit routine } 

DataSegment ; word; { Saved DS register } 

{ *** Application's declaration part *** } 

{SF+} 

procedure RuntimeErrorHandler; 
begin 

{ *** Application's error handler 
Runtime error code in ExitCode - See Turbo Pascal Manual *** ) 

ExitProc : = @RuntimeErrorHandler; 
asm 

mov sp, bp; 
mov ds, DataSegment; 
pop bx; 
pop ax; 
pop ax; 

mov ax, WORD PTR ErrorAddr + 2; 
add ax, $10; 
add ax, PrefixSeg; 
push ax; 

mov ax, WORD PTR ErrorAddr; 
push ax; 
push bx; 
end; 

end; { RuntimeErrorHandler } 

{$F-} 

begin 

ExitSave := ExitProc; 

ExitProc := ^RuntimeErrorHandler; 

DataSegment ;= DSeg; 

{ *** Application's code area *** } 

ExitProc := ExitSave; 
end. 

; End of File 


Listing 4 

inline ( S89/$EC/$8E/SlE/DataSegment/$5B/$58/$58/SAl/ErrorAddr + 2/ 
$05/$10/$00/$03/$06/PrefixSeg/$50/$Al/ErrorAddr/$50/$53); 


Listing 5 

ask the BIOS for the time until midnight flag is returned 
Assemble to a .COM file: tasm pi.asm 
tlink /t pi 


CODE 

SEGMENT 



ASSUME 

CS:CODE 


ORG 

100H 

BEGIN: 

MOV 

AH,0 


INT 

1AH 


OR 

AL.AL 


JZ 

BEGIN 


RET 


CODE 

ENDS 



END 

BEGIN 

; End of File 



( Setup stack frame ) 

{ Restore DS register } 

{ Pop flags } 

{ Pop return address, ofs } 

{ Pop return address, seg } 

{ Get error address, seg } 

{ Adjust error addr, seg } 

{ Push error address, seg } 
{ Get error address, ofs } 

{ Push error address, ofs } 

( Push flags } 


When an application asks DOS for 
the date and time, it has to use two 
separate DOS calls - number 2AH for the 
date and number 2CH for the time. If 
the date changes between these two 
calls, the resulting date and time will be 
24 hours earlier or later than the actual 
date and time, depending on the order 
of the calls. The first viper has struck. 

An error of this size can be quite 
serious in some business applications. In 
software development, an error in a file 
time stamp may prevent a MAKE utility 
from recompiling a source file that has 
been changed. 

Failures of this kind must be very 
rare, because they can occur only 
during a very short time between two 
DOS calls. However, if you do a lot of 
software development or other data 
processing around midnight, this viper 
may strike you sooner or later. 

DOS should have provided a single 
call to return both the date and time, 
but it doesn’t, so you have to find a fix. 

Fortunately, the fix is simple. It’s 
not feasible to stop the clock be¬ 
tween the two system calls, because 
DOS may restart it internally. But you 
can ask DOS for the date, the time, and 
the date again, in that order. If the date 
has changed, ask for the time again. 
This fix is not absolutely foolproof - a 
clever and malicious fool can defeat it 
by calling up a TSR program between 
DOS calls and leaving it up for 24 hours, 
but that’s not very likely. Even if it does 
happen, you can blame it on the TSR. 
Everybody else does. 

I don’t know whether DOS makes al¬ 
lowance for this when it puts date and 
time stamps on files that you create or 
modify. Presumably it does, because 
this problem has never been reported 
for files, as far as I know. 

The other vipers hide out in a 
deeper lair - the BIOS. The system clock 
generates interrupts approximately 18 
times a second (more precisely, 65,536 
times per hour). The BIOS counts the 
number of interrupts and returns the 
32-bit total in the CX and DX registers 
when you call interrupt 1AH with AH = 
0. DOS uses this BIOS call to keep track 
of the time and date after power up. 

If that were all the BIOS did, this call 
would be a reliable measure of time, 
and as accurate as the clock chip. At 
65,536 interrupts per hour, the BIOS 
could keep incrementing the 32-bit 
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count for over seven years before it 
would overflow. Virtually no PCs, and 
very few mainframes, are kept running 
that long. 

Alas, simple and reliable techniques 
of this kind are not the IBM way. There 
is another BIOS call which DOS calls on 
power up to set the count to the num¬ 
ber of clock interrupts since midnight. 
When the number of clock interrupts 
reaches 24 hours’ worth, the BIOS resets 
the count to zero and sets a flag, which 
1 will call the midnight flag, and returns 
it with the count the next time you call 
for it. 

You can see what the problem is. If 
an application program calls on the BIOS 
to measure a time interval and sees the 
midnight flag, then DOS won’t see the 
flag when it calls on the BIOS later. You 
might think that DOS would be smart 
enough to realize that time doesn't run 
backward, but it's not, or at least MS- 
DOS Version 3.30 isn’t 

Try it yourself. Set the time to 23:59, 
and then run the test program in Listing 
5 for a minute. 


When the test program returns, DOS 
will think it’s shortly after midnight on 
the same day! 

This viper is not rare. The setup code 
for a rather well-known version of C++ 
contains this kind of BIOS call. Every ap¬ 
plication developed with it can cause 
DOS to lose a day if it’s brought up too 
soon after midnight. 

The fix for this problem isn’t so easy. 
You could avoid it by calling on DOS for 
the time, but that would burden your 
program with the considerable over¬ 
head of DOS calls in time-critical areas. 
If the computer has one of the later 
BIOS versions, there are alternative BIOS 
calls that you can use for timeouts. 

The only solution that doesn't in¬ 
volve a lot of overhead and that works 
for all compatibles is to intercept inter¬ 
rupt 1CH, which the BIOS calls with 
every clock interrupt. Have your inter¬ 
rupt service routine increment a 32-bit 
value every time it is called. Then poll 
this value, with interrupts disabled 
while you read the two 16-bit halves, 
and use that to measure time. In other 
words, implement the kind of service 


that the BIOS should have provided, but 
didn’t. 

If you do this, be sure to restore the 
interrupt vector before returning to DOS, 
and keep all possible program exits 
covered, even irregular exits like those 
generated by Ctrl-Break. 

The third viper is the most vicious 
one of all. It can strike if you do nothing 
for an entire day. Just leave your com¬ 
puter idling at the DOS prompt (or in an 
application program that doesn't ask 
DOS for the time) for an entire day, in¬ 
cluding two consecutive midnights. 
With some computers, especially the 
older PCs and XTs that have no 
clock/calendar chips, this causes DOS to 
advance the date by only a single day, 
because it has no way of telling that 
more than one midnight has passed. 

I’m too impatient to test this in real 
time, so I took a little shortcut. The pro¬ 
gram in Listing 6 works on all PCs and 
most clones. It sets the system clock 
running approximately 60 times faster 
than normal, so an hour seems to pass 
in a minute. 

I checked this out on my old Com¬ 
paq portable, running DOS 2.10. (I was a 
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Listing 6 

; Speed up the system clock 60 times 

; Assemble to a 

.COM file: tasm pi.asm 

» 


tlink /t pi 

CODE 

SEGMENT 



ASSUME 

CS:C0DE 


ORG 

100H 

BEGIN: 

CLI 



MOV 

AL.36H 


OUT 

43H.AL 


MOV 

BX,1092 


MOV 

AL.BL 


OUT 

40H.AL 


MOV 

AL.BH 


OUT 

40H.AL 


ST I 



RET 


CODE 

ENDS 



little reluctant to tamper with the newer 386 computer that 
holds all my work.) Sure enough, when I left it running for one 
minute, the system time advanced one hour, and when I set 
the time to a late evening hour and left it running for 32 
minutes, the system time and date advanced just eight hours, 
instead of the expected 32. 

CAUTION: Speeding up the clock this way will interfere with 
disk drive timing, so be sure to run your computer from a 
RAM disk while the clock is running fast. You can restore nor¬ 
mal operation with a cold reboot ( Ctrl-Alt-Del ), which 
causes the BIOS to reset the clock chip. Then set the date and 
time back to their correct values. 

This problem has been corrected in some of the more 
recent DOS versions, but it did reappear when I left my com¬ 
puter idling in a text editor that doesn't call DOS for keyboard 
input. It's not likely to strike often, because people usually 
don't leave their computers unattended for such long periods 
unless they’re running bulletin boards. However, bulletin 
board programs ask for the time fairly often, so the system 
clock stays up to date. 

Perhaps you have nothing to fear from any of these vipers. 
But if the designers of the BIOS and DOS could mess up such a 
simple matter as keeping track of the date and time, what 
other vipers are lurking in your PC, ready to strike in other 
unusual circumstances? Stay tuned. Finding such problems, 
and telling you what to do about them, is one of the reasons 
for this magazine's existence. □ 
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Under The Covers 



Controlling Multi-Media 
Video Devices 

Part 2 


In last month’s column, I developed a C++ VCR class that encapsulated many of 
the basic control functions for the VCR, including the member functions in Table 1. 
This table describes the member functions of the complete VCR class. This class also 
encapsulates two private member functions to the class: 

• ReceiveResponse() , which returns a string object that was received from the VCR 
over the serial port. 

• ValidateFramef) , which validates a Frame. During the validation process, units are 
converted as necessary to ensure a valid format. The advantage is that you can 
fill a Frame using only a field of interest, then let the member function convert 
the Frame to a valid format. For example, you might want to specify a tape 
location in seconds. The ValidateFrame() member function automatically con¬ 
verts the total seconds specified into the proper number of minutes and hours. 
Listing 1 is the revised header file. The only change to the header file presented 

last month is the addition of these two private member functions. Listing 2 is a 
complete implementation of the remaining member functions (see Table 1). 

Many of the commands in Table 1 deal with video editing. You edit video tape 
using two or more AG-1960/RS VCRs —one or more for playback and one for record. 
You must connect each VCR to a separate serial connector on the computer. 

Dubbing is the process of copying between tapes. To dub, position one VCR to 
the start of the desired scene and place it into Still mode. Then position the record 
VCR to the desired place where the inserted scene should be recorded. Place the 
record VCR in the Record Still mode using the Record() and Still () member func¬ 
tions. 

Assembly editing involves inserting selected scenes (audio and video) from one or 
more source tapes onto a single destination tape. The procedure for assembly edit¬ 
ing is: 


1. Position the source tape to the start of the desired scene using the Cue com¬ 
mand. 

2. Position the record tape to the start point using the Still command, and then 
place the VCR in the Record Still mode. 

3. Issue a Play command to the source VCR and release the record VCR from 
Still mode. 

4. To terminate assembly, issue a Still command (not a Stop command) to the 
recording VCR. 

5. Position the source VCR to the next scene. 


William H. Roetzheim 


William H. Roetzheim has an MBA and is currently an MS candidate in computer 
science. He has worked as the Senior Project Manager for Tetra Tech Services (a 
Honeywell subsidiary) and as an author of computer books and software. He is cur¬ 
rently a senior associate with Booz-Allen and Hamilton., Inc His latest program is an 
IBM-PC based project management tool which is tailored to software development 
projects, Structured Project Manager’s Toolbox (SPMT). You may contact him at Booz- 
Allen and Hamilton, Inc., 4025 Hancock St, Suite 109, San Diego, CA 92110 (619) 223- 
5681. 



















Table 1 

VCR:: Val idateFrame - Adjust frame format to ensure 
validity 

VCR::ReceiveResponse - Receive VCR response to request 

VCR: :ShuttleOn - Enables jog/shuttle mode 

VCR::ShuttleUp - Increase shuttle speed 

VCR: -.ShuttleDown - Decrease shuttle speed 

VCR::ForwardShuttle - Forward shuttle 

VCR::ReverseShuttle - Reverse Shuttle 

VCR: -.CueToFrame - Cue to frame 

VCR: :SetCueType - Set cue type 

VCR: :PlayToFrame - Play to frame 

VCR::PlaySegment - Play segment 

VCR:AudioInsertToFrame - Audio insert to frame 

VCR::AudioVideoInsertToFrame - Audio/Video insert to 

frame 

VCR::Preplay - Preroll play 

VCR: -.Calibrate - Calibrate 

VCR: -.ClearCounter - Clear frame count 

VCR: -.AudioSelect - Audio select 

VCR:: Reset VCR - Perform VCR reset 

VCR::RequestFrame - Request current frame count 

VCR: -.RequestMode - Request current VCR mode 

Additional VCR Functions 




Program FASTER with ... 

CC-RIDER 

or the new 
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CCSYM can also create a 
help databaseloryour 
program which is 
compatible with Microsoft's 
help system, QuickHelp. 

All symbols in your 
application are accessible 
from QuickHelp's menus, 
with documentation 
extracted automatically 
from your original 
source code. 
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Boriand C++. 
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The Selectra AG-1960/RS is suitable for a wide range of 
video production requirements for individuals or companies on 
a tight budget. In addition, it is appropriate for a large number 
of applications that might be appropriate for a laser disk, but 
which cannot justify the cost of mastering the disk. With the 
VCR C++ class described in this article, adding this device to an 
application is simple and painless. □ 

// you have a topic you would like to see covered in this 
column, please drop me a note describing your idea in as 
much detail as possible. If your company has a hardware 
product which requires application program support, call or 
write for information on providing sample hardware for use 
during development of a column. Be sure to include a descrip¬ 
tion of the hardware and examples of its application. 


Listing 1 

// VCR.H - VCR device driver classes 

// VCR - Panasonic Selectra AG-1960 VCR class 

lifndef VCR_H 
Idefine VCR_H 

linclude "Port.h" 

enum CueType (Fine, Coarse}; 

enum VCRMode {StopMode, EjectMode, RewindMode, FFMode, 

PlayFRMode, PI ayFFMode, Still Mode, RecordMode, 

PlayMode, PowerOffMode, NoTapeMode); 

struct Frame 

i 

int nHour; 
int nMinute; 
int nSecond; 
int nFrame; 

I; 

class VCR 

i 

private: 

Serial Port *spSerialPort; 

void SendCommand (Str sCommandString); 

Str ReceiveResponse (void); 

void ValidateFrame (struct Frame* sfFrame); 

public: 

VCR (int nNewPortAddress - 0x3F8); // C0M1: 

"'VCR (); 

void Stop (); 

void Eject (); 

void Rewind (); 

void FastForward (); 

void PlayFastReverse(); 

void PlayFastForward (); 

void Still (); 

void Record (); 

void Play (); 

void ReversePlay (); 

void StepForward (); 

void StepReverse (); 

void PowerToggle (); 

void ShuttleOn (); 

void ShuttleUp (); 

void ShuttleDown (); 

void ForwardShuttle (int nSpeed); 

void ReverseShuttle (int nSpeed); 

void CueToFrame (struct Frame NewFrame); 

void SetCueType (CueType ctNewCueType); 

void PlayToFrame (struct Frame EndFrame); 

void PlaySegment (struct Frame StartFrame, struct Frame EndFrame); 

void AudioInsertToFrame (struct Frame EndFrame); 

void AudioVideoInsertToFrame (struct Frame EndFrame); 

void PrePlay (); 

void Calibrate (); 

void ClearCounter (); 

void AudioSelect (); 

void ResetVCR (); 

struct Frame RequestFrame (); 

VCRMode RequestMode (); 

}; 

lendif VCR_H 
// End of File 
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Listing 2 

// 

VCR.CPP - VCR device driver class. 


sfFrame.nMinute +■ (sfFrame.nSecond / 60); 

// 

VCR::VCR - Constructor for VCR 


sfFrame.nSecond %= 60; 

// 

VCR::~VCR - Destructor for VCR 


if (sfFrame.nMinute < 0) sfFrame.nMinute ■ 0; 

// 

VCR::SendCommand - Send command string to VCR 


sfFrame.nHour +■ (sfFrame.nMinute / 60); 

// 

VCR::Stop - Puts the VCR into Stop mode. 


sfFrame.nMinute 60; 

// 

VCR::Eject - Causes the tape to be ejected from the VCR. 


if (sfFrame.nHour < 0) sfFrame.nHour - 0; 

// 

VCR::Rewind - Places the VCR into full speed rewind. 


if (sfFrame.nHour > 9) sfFrame.nHour ■ 9; 

// 

VCR::FastForward - Places the VCR into full speed fast forward. 

} 


// 

VCR::PlayFastReverse - Places the VCR into fast reverse play. 



// 

VCR::PlayFastForward - Places the VCR into fast forward play. 



// 

VCR::Sti11 - Causes the VCR to Still on the current frame. 



// 

VCR::Record - Begin recording mode. 

j ****************************************************************** 

// 

VCR::PI ay - Begins normal play mode. 

* 

VCR::ShuttleOn - Enables jog/shuttle mode 

// 

VCR::ReversePlay - Begins normal reverse play mode; 

* 


// 

VCR::StepForward - From a still frame, advance to next field. 

* 

Notes: 

// 

VCR::StepReverse - From a still frame, step to previous field. 

* 

1. When received, the VCR enters the shuttle mode. This 

// 

VCR::PowerToggle - Toggle VCR power. 

* 

enables the shuttle up/down commands and the field 

// 

VCR::ValidateFrame - Adjust frame format to ensure validity 

* 

step conmands. 

// 

VCR::ReceiveResponse - Receive VCR response to request 

★ 


// 

VCR::ShuttleOn - Enables jog/shuttle mode 

* 

2. The VCR responds to this command by Still framing at 

// 

VCR::ShuttleUp - Increase shuttle speed 

* 

the current tape position. 

// 

VCR::ShuttleDown - Decrease shuttle speed 

* 


// 

VCR::ForwardShuttle - Forward shuttle 

* 

3. Executing Still or Stop commands will terminate this 

// 

VCR::ReverseShuttle - Reverse Shuttle 

* 

mode. 

// 

VCR::CueToFrame - Cue to frame 

* 


// 

VCR::SetCueType - Set cue type 

* 

4. Command duration is 300 mSec. Up to 1 seconds may be 

// 

VCR::PlayToFrame - Play to frame 

* 

required for the VCR to obtain a clean still frame. 

// 

VCR::PlaySegment - Play segment 

* 


// 

VCR:AudioInsertToFrame - Audio insert to frame 

* 

5. Audio is muted, video playback is output. 

// 

VCR::AudioVideoInsertToFrame - Audio/Video insert to frame 

* 


// 

VCR::Preplay - Preroll play 

********************************************************************** j 

// 

VCR::Calibrate - Calibrate 

void VCR::ShuttleOn (void) 

// 

VCR::ClearCounter - Clear frame count 

{ 


// 

VCR::AudioSelect - Audio select 


SendCommand ("AGS"); 

// 

VCR: .-ResetVCR - Perform VCR reset 

) 


// 

VCR::RequestFrame - Request current frame count 



// 

VCR::RequestMode - Request current VCR mode 



#include <stdio.h> 

j ****************************************************************** 



* 

VCR::ShuttleUp - Increase shuttle speed 

linclude "VCR.h" 

* 




* 

Notes: 



* 

1. Each time this command is received, the VCR increases 

y************************** **************************************** 

* 

the speed of the shuttle mode playback. This is 

* 

VCR::ReceiveResponse - Receive VCR response to command 

* 

equivalent to turning the shuttle ring on the VCR 

* 


* 

clockwise. 

* 

Class Variables Used: 

* 

2. From a still frame, each command steps through 9 

* 

Port ‘SerialPort 

* 

speeds, varying from slow field advance to fast 

★ 


* 

forward playback. 

* 

Returns: 

* 


★ 

Str sResponse 

* 

3. Once maximum speed is attained, additional commands have 

★ 


* 

no effect. 

★ 

Copyright: 

★ 


★ 

Original code by William H. Roetzheim (619) 669-6970 

* 

4. Maximum command duration is 300 mSec. 

★ 

Copyright (c) 1991 by William H. Roetzheim 

* 


* 

All rights reserved. 

* 

5. Audio is muted in all but normal playback speed, video 

******»***************************************************************y 

* 

is output at all speeds. 

Str 

VCR::ReceiveResponse (void) 

* 


{ 


***************************** *****************************************/ 


int i * 0; 

void VCR::ShuttleUp (void) 


char szBuffer [21]; 

{ 





SendCommand ("A@0"); 


// wait for start of command string 

} 



while (i !« 0x02) i - spSerialPort->InChar(); 




// Receive actual response 




int nBufferlndex * 0; 

/****************************************************************** 


i * spSerialPort->InChar (); 

* 

VCR::ShuttleDown - Decrease shuttle speed 


while (i l« 0x03) 

* 



{ 

* 

Notes: 


szBuffer [nBufferIndex++] * i; 

* 

1. Each time this command is received, the VCR decreases 


i * spSerialPort->InChar (); 

* 

the speed of the shuttle mode playback. This is 


} 

* 

equivalent to turning the shuttle ring on the VCR 


szBuffer [nBufferlndex] * 0; 

* 

counterclockwise. 


return (Str) szBuffer; 

* 


} 


♦ 

2. From a still frame, each command steps through 9 



* 

speeds, varying from slow field advance to fast 



* 

reverse playback. 

^****************************************************************** 

* 

3. Once maximum speed is attained, additional commands have 

★ 

VCR::ValidateFrame - Adjust frame fields to ensure validity 

* 

no effect. 

* 

Parameters: 

* 

4. Maximum command duration is 300 mSec. 

* 

struct Frame& sfFrame (in/out) - frame to be adjusted. 

* 


* 


* 

5. Audio is muted in all but normal playback speed, video 

******************************************************•***************/ 

★ 

is output at all speeds. 

void VCR::ValidateFrame (struct Frame& sfFrame) 

* 


{ 


********************************************************************** j 


// If out of range, attempt to bring into range 

void VCR::ShuttleDown (void) 


if (sfFrame.nFrame < 0) sfFrame.nFrame = 0; 

{ 



sfFrame.nSecond +* (sfFrame.nFrame / 30); 


SendCommand ("A@P"); 


sfFrame.nFrame 30; 

) 



if (sfFrame.nSecond < 0) sfFrame.nSecond = 0; 
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★ 

* 

location, send a play command after the cue. 



* 

4. Audio and video are set to passthrough during the search 

/ 

****************************************************************** 

★ 

process. 

★ 

VCR::ForwardShuttle - Forward shuttle 

* 


* 


* 

5. This command is the recommended way of changing the 

* 

Parameters: 

* 

position of the tape, since it will automatically accelerate 

★ 

int nSpeed - Speed in range of 0 to 8 

★ 

and declerate the tape when nearing the cue point. To prevent 

* 


* 

cueing errors, do not send cue commands that would cause the 

★ 

Notes: 

* 

VCR to run off the beginning or end of the recorded portion 

* 

1. This command places the VCR into the forward shuttle 

* 

of the tape. 

* 

mode at the specified speed. When changing shuttle 

★ 


* 

speeds, the VCR will gradually change from the 

* 

6. If frame accuracy is not required, use the SetCueType command 

* 

current speed to the new speed. 

* 

to set Coarse mode. This will allow the VCR to cue at high 

★ 


* 

speed, but with lower accuracy. 

★ 

2. A speed of 0 will select still frame. To freeze the 

* 


* 

picture faster, use ShuttleOnQ instead. 

* 

7. You can use the RequestMode() command to tell when this 

★ 


* 

command is complete. Wait until RequestMode() returns 

* 

3. The speed argument consists of a number from 0 to 8, 

* 

Sti1IMode. 

★ 

where 8 is the maximum forward play speed. Numbers 

★ 


★ 

outside of this range are brought into range. 

* 

8. This cormand may take several minutes to complete, 

* 


★ 

depending on the frame position. 

★ 

4. It may take several seconds to change from the current 

* 


* 

★ 

speed to the specified speed. 

* 

9. Audio and video are set to passthrough. 

★ 

5. Video is output in all modes, audio is output at normal 

* 

10. This command will automatically adjust NewFrame 

★ 

play speed. 

* 

field values to be within the valid ranges. 

**************************************************** ******************y 

*************************************************************** *******y 

void VCR::ForwardShuttle (int nSpeed) 

/ 

void VCR::CueToFrame (struct Frame NewFrame) 


char szBuffer [6]; 

i 

char szBuffer [12]; 


if (nSpeed < 0) nSpeed * 0; 


// Check ranges of NewFrame fields 


if (nSpeed > 8) nSpeed = 8; 


ValidateFrame (NewFrame); 


sprintf (szBuffer, "AAF%d", nSpeed); 




SendCommand (szBuffer); 


// Build ASCII command string 

} 



sprintf (szBuffer, "A@T%01d%02d%02d%02d“, NewFrame.nHour, 




NewFrame.nMinute, NewFrame.nSecond, NewFrame.nFrame); 

/****************************************************************** 



★ 

★ 

VCR::ReverseShuttle - Reverse shuttle 


SendCommand (szBuffer); 

★ 

Parameters: 

/ 


★ 

int nSpeed - Speed in range of 0 to 8 



★ 


/****************************************************************** 

* 

Notes: 

* 

VCR::SetCueType - Set cue type 

★ 

1. This command places the VCR into the reverse shuttle 

* 


★ 

mode at the specified speed. When changing shuttle 

* 

Parameters: 

* 

speeds, the VCR will gradually change from the 

* 

CueType ctType - Fine or Coarse 

★ 

current speed to the new speed. 

* 


★ 


★ 

Notes: 

★ 

2. A speed of 0 will select still frame. To freeze the 

★ 

1. This command determines if the VCR will perform the 

★ 

picture faster, use ShuttleOn() instead. 

★ 

cue command in a coarse or fine mode. The coarse 

* 


★ 

cue is faster, but will result in errors in the tape 

★ 

3. The speed argument consists of a number from 0 to 8, 

★ 

frame counter. If high accuracy is desired, the 

★ 

where 8 is the maximum reverse play speed. Numbers 

* 

cue type must be set to fine mode. 

★ 

outside of this range are brought into range. 

★ 


* 


**********************************************************************/ 

* 

4. It may take several seconds to change from the current 

void VCR::SetCueType (CueType ctType) 

★ 

speed to the specified speed. 

{ 


★ 



if (ctType -* Fine) SendCommand ("AAD0"); 

★ 

5. Video is output in all modes, audio is output at normal 


else SendCommand ("AAD1"); 

★ 

* 

play speed. 

} 


**********************************************************************i 



void VCR::ReverseShuttle (int nSpeed) 

/****************************************************************** 

{ 


★ 

VCR::PlayToFrame - Play to frame 


char szBuffer [6]; 

* 




★ 

Parameters: 


if (nSpeed < 0) nSpeed = 0; 

★ 

struct Frame EndFrame - frame to play to 


if (nSpeed > 8) nSpeed = 8; 

* 



sprintf (szBuffer, "AAG%d", nSpeed); 

* 

Notes: 


SendCommand (szBuffer); 

* 

1. This command is usually used after a selected frame 

} 


★ 

has been reached using the Cue command. Once the cue 



★ 

has completed, the PlayToFrame command allows the 

/****************************************************************** 

* 

selected video scene to be viewed. Upon reaching the 

★ 

VCR::CueToFrame - Cue to frame 

* 

end frame, the VCR automatically stills and the audio 

★ 


* 

and video are muted. 

★ 

Parameters: 

★ 


* 

struct Frame NewFrame - Frame to cue to. 

***************************************************************** *****y 

* 


void VCR::PlayToFrame (struct Frame EndFrame) 

★ 

Notes: 

{ 


★ 

1. Within frame structure: 


char szBuffer [12]; 

★ 

nHour is 0 - 9 



★ 

nMinute is 0 - 59 


// Check ranges of EndFrame fields 

★ 

nSecond is 0 - 59 


ValidateFrame (EndFrame); 

★ 

nFrame is 0 - 29 



★ 



// Build ASCII command string 

★ 

2. There are 30 frames in each second. 


sprintf (szBuffer, M A@U%01d%02d%02d%02d", EndFrame.nHour, 

★ 



EndFrame.nMinute, EndFrame.nSecond, EndFrame.nFrame); 

* 

3. This command searches to the selected frame, then 



★ 

stills. No audio or video is enabled on completion of 


SendCommand (szBuffer); 

★ 

the cue. To enable video, send a still command upon 

} 


* 

completion of the cue. To begin playing at this 
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Listing 

/****************************************************************** 

* VCR::PlaySegment - Play segment 

* 

* Parameters: 

* struct Frame StartFrame 

* struct Frame EndFrame 

* 

* Notes: 

* 1. This command searches to StartFrame (using the selected 

* cue type), then immediately begins normal playback. 

* When EndFrame is reaches, the VCR goes into still frame 

* mode. 


2 — Cont’d 

* place the VCR in Still at the starting frame using the 

* cue or still commands. When ready to begin dubbing, 

* send the AudioVideoInsertToFrameQ command. The VCR will 

* first perform a preroll action. This causes the tape 

* to be reversed for a few seconds, and then begin forward 

* play- This allows proper video synchronization to be 

* established prior to the insert edit. Once the edit point 

* is reached, the VCR will begin recording 

* and will then still on the selected EndFrame. 

* 

* 2. For proper recording, there must be video recorded on the 

* tape for the duration of the over dub. 


* 2. During the search, audio and video are muted. They are also 

* muted when EndFrame is reached. 

* 

* 3. RequestMode() can be used to tell when the segment is complete. 

* Wait for the mode to equal Still Mode. 

* 

**********************************************************************/ 
void VCR::PlaySegment (struct Frame StartFrame, struct Frame EndFrame) 

{ 

char szBuffer [22]; 

// Check ranges of StartFrame fields 
ValidateFrame (StartFrame); 

// check ranges of EndFrame fields 
ValidateFrame (EndFrame); 

// Build ASCII command string 

sprintf (szBuffer, "A@Q%01d%02d%02d%02d%01d%02d%02d%02d", 

StartFrame.nHour, StartFrame.nMinute, StartFrame.nSecond, 

S ta rt F rame.n F rame, 

EndFrame.nHour, EndFrame.nMinute, EndFrame.nSecond, 

EndFrame.nFrame); 

SendCommand (szBuffer); 

} 


^****************************************************************** 

* VCR::AudioInsertToFrame - Audio insert to frame 

★ 

* Parameters: 

* struct Frame EndFrame 

* 

* Notes: 

* 1. This command dubs over any existing normal audio tracks, 

* leaving the HI-FI audio unchanged. For accurate edits, 

* place the VCR in Still at the starting frame using the 

* cue or still commands. When ready to begin dubbing, 

* send the AudioInsertToFrameQ command. The VCR will 

* first perform a preroll action. This causes the tape 

* to be reversed for a few seconds, and then begin forward 

* play- This allows proper video synchronization to be 

* established prior to the insert edit. Once the edit point 

* is reached, the VCR will begin recording over the audio, 

* and will then still on the selected EndFrame. 

* 

* 2. For proper recording, there must be video recorded on the 

* tape for the duration of the over dub. Existing video is 

* left unchanged. 

* 

* 3. For the source VCR for the audio, you should use the 

* PrePlay() command to begin audio playback. The preroll time 

* will then be matched to ensure audio and video synchronization. 

* 

**********************************************************************I 

void VCR::AudioInsertToFrame (struct Frame EndFrame) 

{ 

char szBuffer [12]; 

// Check ranges of EndFrame fields 
ValidateFrame (EndFrame); 


// Build ASCII command string 

sprintf (szBuffer, "AA@%01d%02d%02d%02d", EndFrame.nHour, 
EndFrame.nMinute, EndFrame.nSecond, EndFrame.nFrame); 

SendCommand (szBuffer); 


/****************************************************************** 

* VCR::AudioVideoInsertToFrame - Audio/video insert to frame 

★ 

* Parameters: 

* struct Frame EndFrame 

* 

* Notes: 

* 1. This command edits over any existing video and audio 

* tracks. For accurate edits, 


* 3. For the source VCR for the audio, you should use the 

* PrePlay() command to begin playback. The preroll time 

* will then be matched to ensure audio and video synchronization. 

* 

*****★★***★★★★*★★★*******★************a *******************************J 

void VCR::AudioVideoInsertToFrame (struct Frame EndFrame) 

{ 

char szBuffer [12]; 

// Check ranges of EndFrame fields 
ValidateFrame (EndFrame); 

// Build ASCII command string 

sprintf (szBuffer, H AAB%01d%02d%02d%02d", EndFrame.nHour, 

EndFrame.nMinute, EndFrame.nSecond, EndFrame.nFrame); 

SendCommand (szBuffer); 


^****************************************************************** 

* VCR::Preplay - Preroll play 

* 

* Notes: 

* 1. This command begins play mode, after first performing 

* a preroll action. The preroll will cause the tape 

* to be reverse played for a few seconds, before 

* beginning normal forward play. This ensures that 

* proper video synchronization is in place prior to the 

* start of an edit. 
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Listing 2 

* 2. The preroll time in this command is matched to the preroll 

* time in the audio and video insert commands. This ensures 

* that two VCRs will perform exact and clean insert edits. 

* 

* 3. The actual preroll requires 3 seconds. 

★ 

**********************************************************************J 

void VCR::PrePlay (void) 

{ 

SendCommand ("AAC"); 

} 


j************** **************************************************** 

* VCR::Calibrate - Calibrate 

★ 

* Notes: 

* 1. Since the VCR uses video frame counts to establish tape 

* position, it is important to set a starting reference 

* point for the count. The calibrate command automatically 

* sets this point to the start of the video tape. This 

* should be performed every time a new tape is placed in 

* the VCR, and may be repeated should tape errors 

* accumulate after excessive tape starting and stopping. 

* 

* 2. When issued, the tape rewinds to the beginning and the 

* frame counter is reset on the tape leader. Thereafter, 

* the frame counter reports the number of video frames counted 

* since the beginning of the tape. 

* 

**********************************************************************^ 
void VCR: Calibrate (void) 

{ 

SendCommand ("A@V"); 

} 

^****************************************************************** 

* VCR::ClearCounter - Clear frame count 

★ 

* Notes: 

* 1. In some instances, it may be desirable to manually 

* reset the tape frame counter. This allows the 

* frame counter to be referenced from a starting 

* point other than the start of tape. To accomplish 

* this, the tape should be positioned to the desired 

* reference frame, then placed in still. Issue the 

* ClearCounterQ command to reset the counter. 

* 

* 2. Note that the VCR will not cue to less than 0. Ensure 

* that the reference point is set prior to any frames 

* that will need to be accessed using the cue time. 


********************************************************************** 
void VCR::C1earCounter (void) 

{ 

SendCommand ("A@X"); 

} 


/****************************************************************** 

* VCR::AudioSelect - Audio select 

★ 

* Notes: 

* 1. This command changes the audio output mode from 

* mono, stereo, HI-FI. Every time the command is 

* received, the audio mode steps to the next type. 

* 

********************************************************************** J 

void VCR::AudioSelect (void) 

{ 

SendCommand ("AAE"); 

} 


/****************************************************************** 

* VCR::ResetVCR - Perform VCR reset 

★ 

* Notes: 

* 1. This command cancels any command in process. It will 

* immediately place the VCR into Stop mode, and turn 

* on audio and video. It is recommended that this command 

* be issued by the computer control program each time 

* the program is started. 

* 

**************w******************************************************* f 

void VCR::ResetVCR (void) 

{ 

SendCommand ("A@Z"); 

} 


-Cont’d 


y****************************************************************** 

* VCR::RequestFrame - Request current frame count 

* 

* Returns: 

* struct Frame 

* 

* Notes: 

* 1. This command returns the current frame value. It may 

* be sent while another command is still in the process 

* of being executed. Negative frame counts are returned 

* as 0. 

* 

* 2. Normal reply time for this command is 30 mSec. 

★ 

********************************************************************** J 

struct Frame VCR::RequestFrame (void) 

{ 

Str sReturn; 

struct Frame sfFrame; 

Str sBuffer; 

SendCommand ("ZI"); 
sReturn = ReceiveResponse (); 

// Parse hours 

sBuffer = sReturn.SI ice (0, 0); 
sfFrame.nHour = sBuffer.Tolnt (); 

// Parse minutes 

sBuffer = sReturn.SI ice (1, 2); 

sfFrame.nMinute = sBuffer.Tolnt (); 

// Parse seconds 

sBuffer * sReturn.SI ice (3,4); 

sfFrame.nSecond - sBuffer.Tolnt (); 

// Parse frames 

sBuffer * sReturn.SIice (5,6); 
sfFrame.nFrame = sBuffer.Tolnt (); 

return sfFrame; 

} 

j-k-k-k *********** ****** ******************************* *************** 

* VCR::RequestMode - Request current VCR mode 

* 

* Returns: 

* VCRMode 

* 

* Notes: 

* 1. This command asks the VCR what operating mode it is 

* currently in. For some commands, such as Cue, the 

* VCR mode will change as the tape is fast forwarded, 

* played, and stilled. 

* 

* 2. This command should be used to determine if a tape 

* is in the VCR and the power is on. 

* 

* 3. Normal reply time is 30 mSec. 

★ 

********************************************************************** J 

VCRMode VCR::RequestMode (void) 

{ 

Str sReturn; 


SendCommand ("ZA"); 
sReturn = ReceiveResponse (); 


if 

(sReturn.Find 

("A@@") 

J = 

INVALID) 

return 

StopMode; 

if 

(sReturn.Find 

("A@A") 

J r 

INVALID) 

return 

EjectMode; 

if 

(sReturn.Find 

( M A@B H ) 

J s 

INVALID) 

return 

RewindMode; 

if 

(sReturn.Find 

( M A@C H ) 

1 = 

INVALID) 

return 

FFMode; 

if 

(sReturn.Find 

("A@D H ) 

1 s 

INVALID) 

return 

PlayFRMode; 

if 

(sReturn.Find 

("A@E") 

J = 

INVALID) 

return 

PlayFFMode; 

if 

(sReturn.Find 

("A@F M ) 

| s 

INVALID) 

return 

Still Mode; 

if 

(sReturn.Find 

("A@H“) 

1 = 

INVALID) 

return 

RecordMode; 

if 

(sReturn.Find 

( M A@J M ) 

I B 

INVALID) 

return 

PlayMode; 

if 

(sReturn.Find 

("A@0") 

1 S 

INVALID) 

return 

PowerOffMode; 

if 

(sReturn.Find 

(“Aez") 

J 3 

INVALID) 

return 

NoTapeMode; 


return INVALID; 

} 

// End of File 
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New Products 

Industry-Related News & Announcements 


Dolphin Updates Memory Manager 

The Dolphin Software Far Memory Manager library is a C 
library that permits effective use of the far heap, even from 
the small memory model. The library provides enhanced 
memory allocation functions, multidimensional dynamic 
array allocation, far heap diagnostic functions, and a memory 
allocation log useful in tracking down far memory bugs. 

Version 1.62 of the library contains several new debug¬ 
ging features. The library can now identify the line number 
and source file of a statement that generates an error. The 
error can be not only a critical error (corruption of memory 


control blocks in the far heap), but any of the 27 errors (or 
any subset of them) detectable by the Dolphin memory 
management functions. 

This version also includes more detailed documentation 
and a utility to display any Dolphin function declaration. The 
library supports both Turbo C/C++ and Microsoft C versions 
5.10 and 6.00, in small, medium and large memory models. 
The Far Memory Manager library costs $99. For more informa¬ 
tion, contact Dolphin Software, 48 Shattuck Square #147, 
Berkeley, CA 94704, (415) 644-9530; FAX (415) 641-2651. 


Phar Lap Adds Borland C++ And Microsoft FORTRAN Support 


Phar Lap software has released a new version of its 
2861 DOS-Extender Software Development Kit that supports 
Borland C++ and Microsoft FORTRAN. The 2861 DOS-Extender 
now allows developers to use Microsoft C, Borland C++, or 
Microsoft FORTRAN to build multi-megabyte extended DOS 
applications that can run in protected mode and access up 
to 16Mb of memory. 286 [ DOS-Extender is compatible with 
DPMI, VCPI, and XMS; that means that a 2861 DOS-Extender 
application can run under different extended DOS environ¬ 
ments, including Windows and DESQview. 

Version 2.0 works with both Borland's Turbo Debugger 
and Microsoft’s CodeView. This version contains new techni¬ 
cal features, including faster load times, faster protected 


mode interrupt processing, and faster File I/O. Version 2.0 
also uses only 56Kb of conventional memory, leaving more 
memory free to run other applications concurrently with 
2861 DOS-Extender. 

The 2861 DOS-Extender Software Development Kit v2.0 
costs $495. Current Phar Lap customers can update from ver¬ 
sion 1.2 for $100. The 3861 DOS-Extender SDK is also available 
for $495. Runtime versions of both products are available for 
developers who want to ship extended DOS applications to 
their customers. For more information, contact Phar Lap 
Software, 60 Aberdeen Ave., Cambridge, MA 02138, (617) 
661-1510; FAX (617) 876-2972. 


Windows DLL Supports Sprite Animation 

WANIM.DLL is a multitasking dynamic link library (DLL) for 
Windows 3.0 that helps programmers develop multimedia, 
educational, and video game software. WANIM.DLL allows 
you to dynamically change sprite display priority, create, 
resize, and position multiple animation zones anywhere 
within a window, scroll background images, detea collisions, 
and generate masks. Algorithmic sprites allow you to create 
animation objects using any of Windows’ text, line, rec¬ 


tangle, and ellipse drawing funaions. You can even combine 
algorithmic and bitmap sprites. 

WANIM.DLL works with any graphics mode Windows sup¬ 
port and is compatible with the Microsoft Multimedia Exten¬ 
sions for Windows. WANIM.DLL costs $69, or $99 with source. 
A demo disk is available for $5. For more information, con- 
taa AND-XOR Systems, 1107 Fair Oaks Ave. Suite 167, 
South Pasadena, CA 91030, (213) 969-4081. 
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Strategic Edge Updates Word Wrapper 

Word Wrapper is a programming tool that brings word 
processing functionality to Clipper, Fox, dBase IV, and Quick- 
Silver applications. Word Wrapper works without the use of 
memo fields. Users type text into a scrollable window that 
automatically reformats as text is entered or deleted. Data 
storage and retrieval is more reliable, since the text is stored 
in standard .DBF fields instead of memo fields. Word Wrap¬ 
per V2.30 adds a global search-and-replace feature that 
operates on some or all memos in a database. A new fuzzy 
logic feature lets you find a phrase by typing as little as one 
character from each word in the phrase. You can also cut 
and paste from one memo to another. 

The Word Wrapper Toolbox adds functions to Word 
Wrapper such as browsing and editing of a subset of memos 


in a menu-driven module, allowing each record to have a 
variable number of attached memos. The Toolbox can also 
help users create mail-merged form letters. Word Wrapper 
Toolbox vl.2 includes a 60,000-word dirtionary and spelling 
checker that can suggest alternate spellings, find consecu¬ 
tive duplicates, and let the user add an unlimited number of 
new words. 

Word Wrapper V2.30 supports dBase IV and Clipper 5.0, 
in addition to FoxBase+, FoxPro, Clipper Summer ’87, and 
Quicksilver. Word Wrapper comes with complete source 
code. Both Word Wrapper V2.30 and Word Wrapper ToolBox 
vl.2 cost $99. For more information, contact David Lewis at 
Strategic Edge, 32 55 Laguna, Suite 8, San Francisco, CA 
94123,(415)563-3/55. 


Paul Mace Adds Synchronized Sound 

Paul Mace Software, Inc., has released the RealSound En¬ 
hancement for GRasp (GRaphic Animation System for Profes¬ 
sionals). GRasp is an animation and multimedia development 
environment for DOS that enables users to create standalone, 
executable programs with animated images combined with 
sound and special effects. GRasp 4.0 allows control of 
palette, movement, timing, and user interaction in producing 
multimedia presentations and animation. 

The RealSound Enhancement for GRasp enables users to 
record personalized sound effects, music, or speech with a 
SoundBlaster board and play the recorded sound back 
through either the sound board or the PC's internal speaker, 


synchronized with the GRasp animation. In addition, users 
can convert SoundBlaster .VOC files to .SND format in order 
to play sound back through the Ad Lib sound board by Ad 
Lib, Inc. 

The RealSound Enhancement costs $99.95 and requires 
no runtime royalty fees for non-commercial applications 
created with GRasp. A license fee applies to GRasp programs 
written for commercial products that contain soundtracks. 
For more information, contact Paul Mace Software, Inc., 400 
Williamson Way, Ashland, OR 97520, (503) 488-2322; FAX 
(503) 488-1549. 


Greenleaf Releases Comm++ 

Greanleaf Comm++ is a new class library for 
asynchronous communications, from Greenleaf Software. 

The class library is extensible so that developers can add 
new hardware, software, protocols, and terminal emulation 
features. The library provides classes for serial port control, 
modem control, file transfer protocols, and calculation of 
check values. An abstract base class encapsulates hardware- 
dependent parts of the code. 

Greenleaf Comm++ provides interrupt-driven circular buf¬ 
fered service for up to 32 ports at baud rates up to 115K. The 
library supports the Hayes Smartmodems, Xmodem, Kermit, 


XON/XOFF, and VT52 and VT100 terminal emulation. The 
library handles serial ports COM1 through COM4 as well as 
non-intelligent multiport boards from DigiBoard, Inc 
Greenleaf Comm++ runs under both DOS and OS/2. The 
library supports Zortech and Borland C++ compilers on the 
PC, XT, AT, PS/2, 386, 486 and compatible machines and both 
the 8250 and 16450 UARTs. Greanleaf Comm++ costs $199 
and includes full source code and technical support For 
more information, contact Greenleaf Software, Inc., 16479 
Dallas Parkway, Suite 570, Dallas, TX 75248, (BOO) 523- 
9830; FAX (214) 248-7830. 


DataLIB Provides DOS And Windows Import/Export 


DatTel Communication Systems has released DataLIB, a 
set of libraries that can handle data import and export for a 
variety of ASCII, spreadsheet, and database file formats. 
DataLIB supports popular spreadsheet and database file for¬ 
mats, including Lotus 123 (.WKS and .WK1), Quattro (.WQK), 
Excel (versions 2 and 3 .XLS), dBASE (versions II, III, and IV, 
.DBF), ASCII (Fixed- and variable-length records), Data Inter¬ 
change Format, and SYLK. DataLIB provides a single function 
interface for multiple file format access from any application 
or development system. 

DataLIB/Windows is a dynamic link library (DLL), so it 
works with most Windows applications, languages, and 


development systems, including C, C++, Turbo Pascal for Win¬ 
dows, ToolBook, Visual Basic, Smalltalk, Actor, and so on. 
DataLIB/DOS is a library that works with most C and C++ com¬ 
pilers, including Microsoft C, Borland C++, and Turbo C 
DataLIB/DOS source code is also portable to any ANSI C com¬ 
piler. 

DataLIB costs $395, which includes a royalty-free distribu¬ 
tion license. You can purchase source code and site licenses 
separately and a demo disk and sample programs are avail¬ 
able on request For more information, contact DatTel Com¬ 
munication Systems, Inc., 3508 Market Street, Suite 415, 
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Library Provides Graphics File Access 

Media Cybernetics has released the HALO Image File For¬ 
mat Library (HIFFL), a package that allows DOS and Windows 
programmers to add graphics and image File support to their 
applications. HIFFL allows applications to read and write bit¬ 
mapped image files in a variety of formats. The library con¬ 
tains about 10,000 lines of code and provides support 
(including image compression) for TIFF, PCX, BMP, and CUT for¬ 
mats. 


The DOS version is an object library and supports Borland 
and Microsoft C compilers. The Windows version is a 
dynamic link library (DLL) and works with any language or 
environment that supports DLLs. HIFFL for DOS costs $249, 
while the Windows version costs $349. For more informa¬ 
tion, contact Media Cybernetics, 8484 Georgia Avenue, Sil¬ 
ver Spring, MD 20910, (301) 495-3305; FAX (301) 

495-5964. 


Greenleaf Releases ViewComm V3.0 

Greenleaf Software has released version 3.0 of Greenleaf 
ViewComm, a software system that acts as an RS-232 serial 
data monitor. ViewComm allows users to examine FLS-232 
data and control signals by displaying them directly while 
capturing to a buffer or to disk files that can be reviewed or 
printed later. Features include two datascope modes, data 
review, triggers for capture control, and buffer playback. In 
Monitor Mode, the product monitors a bidirectional link and 
in Source Mode, the product can interact directly with 
another communicating device. A trigger system allows the 
user to set the conditions that control the capture of data. 

Version 2.0 adds support for the Baudot character set, 
wildcard characters in string triggers, and XON/XOFF flow 


control in Source Mode. New command-line switches allow 
the user to specify an existing configuration, start the pro¬ 
gram on the datascope screen, and start capturing data to 
disk. The programmer can now see a graphic display of the 
control signals that emulates that of a logic analyzer. 

The product requires a PC, XT, AT, PS/2, or compatible 
with one or two serial ports, a minimum of 300Kb of 
memory, and DOS 3.0 or newer. ViewComm costs $399 and 
includes software, documentation, setup guide, and a Y- 
cable. For more information, contact Greenleaf Software, 
Inc., 16749 Dallas Pkwy., Ste S70, Dallas, TX 75248-9968, 
(800) 523-9830; FAX (214) 248-7830. 


Toolbox Provides Huge Numeric Arrays 

Quinn-Curtis has released the Huge Virtual Array and 
Numerical Analysis Toolbox, a library of virtual array tools for 
DOS. The virtual array tools allow programmers to manipu¬ 
late numeric arrays beyond the 640Kb DOS restriction. For 
speed, the virtual array mechanism automatically uses low 
memory first, then extended memory, and finally hard disk 
storage. The virtual array sizes are limited only by available 
hard disk space. You can create virtual arrays, matrices, and 
vectors in any of the standard floating point types (float, 
double, long double for C, and single, real, double, and ex¬ 
tended for Turbo Pascal). 

The package also contains a selection of numerical 
analysis tools where very large arrays are critical. These 
tools include matrix math support, solutions of large systems 


of linear equations, curve fitting, multiple and stepwise 
regression, Fourier analysis, eigenvalues and eigenvectors, 
and general statistics. The matrix math support includes nor¬ 
mal and complex matrices, multiplication, addition, nor¬ 
malization, transposition, inversion, dot product, 
determinant, and the ability to write virtual matrices to and 
read them from DOS files. 

The Huge Virtual Array and Numerical Analysis Toolbox is 
available for Turbo Pascal v5.x and v6.x, Turbo C 2.x, Borland 
C++, Microsoft C v5.x and v6.0, and Quick C 2.x. Each compiler 
version costs $300 and includes a limited 90-day warranty 
and telephone support. For more information, contact Quinn- 
Curtis, 35 Highland Circle, Needham, MA 02194, (617) 449- 
6155; FAX (617) 449-6109. 


Microsoft Unbundles Debugging Version 

The debugging version of Windows, a standard com¬ 
ponent of the Microsoft Windows Software Development Kit, 
is now available separately for the first time. The Windows 
debugging version validates parameters, checks API calls, per¬ 
forms checksums on code segments, tracks Window handles 
(such as menus and graphics), and provides other checks that 
can help detect bugs in Windows applications. When the 
debugging version detects problems, it displays information on 
a second monitor or via a serial port to a dumb terminal. 


Of Windows 

Competing compiler vendors now offer Windows 
development systems that do not require the Microsoft Win¬ 
dows SDK, but the debugging version of Windows is still only 
available from Microsoft. The Windows debugging version 
costs $195 (the complete SDK costs $495) and is available 
from software outlets. For more information, contact 
Microsoft Corporation, One Microsoft Way, Redmond, WA 
98052-6399, (206) 882-8080; FAX (206) 883-8101. 
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Readers' Forum 


We ask that letters with code listings be 
submitted in an ASCII text file on an MS- 
DOS formatted disk. Providing us an 
electronic copy of the code will prevent 
typographical errors that might result 
from optical scanning or re-keyboarding. 


Dear Mr. Burk: 

Thanks for answering my questions 
about stdprn in the June 1991 issue. 
While I hadn't thought of setmode, I had 
implemented the code you presented 
(open prn myself). Great minds think 
alikel 

Regarding Scott Robert Ladd's math 
article in the same issue, where did he 
get the rule to round exactly one-half 
to the nearest even integer, e.g. 4.5 = 4 
(p. 76)? J.E. Thompson says in Arithmetic 
for the Practical Worker (Van Nostrand- 
Reinhard, 1982) that .5 is always 
rounded up, with no mention of 
odd/even digits (p. 23). Is Mr. Ladd's rule 
for scientists only? 

Finally, could you review for me the 
number of decimal digits and decimal 
places in the floats a and b (top of 2nd 
column, p. 76)? 

Sincerely, 

Craig Banning 
Rt 5, Box 649 
Big Pine Key, FL 33043 

I am not a numerical whiz, but I can 
tell you that Knuth recommends round¬ 
ing to even rather than rounding up. I 
believe the basic problem with round¬ 
ing up is that, over the course of many 
computations, you get an accumulated 
upward drift in the final answer. 
Rounding to even allows you to place 
a statistical bound on the cumulative 
error. For a more complete answer, 
see the March 1991 issue of ACM 
Computing Surveys. That issue con¬ 
tains an article entitled “What Every 
Computer Scientist Should Know 
About Floating-Point Arithmetic. ” 

You are right about the error on 
page 76. b obviously has three 
decimal digits, not four. I should have 


caught that, considering how 
thoroughly my high school chemistry 
teacher drummed significant digits into 
me. Mrs. Bogner, I hope you are not 
reading this, -rib 


Dear Mr. Zolman, 

I have only been a subscriber for 
one issue but I have read most of the 
back issues while visiting my father. I 
would like to congratulate you and the 
rest of the TECH Specialist publication 
team for an excellent product. Other 
magazines just don't fit the niche that 
yours does: PC Magazine is lacking in 
good programs (although they used to 
publish some very good code); BYTE is 
all advertising and contains virtually no 
code; Dr. Dobb’s Journal is too high end 
for me; TECH Specialist fits my needs 
like a glove! 

Douglas D. Farren 
willowick, OH 44095 

Thanks on Leor's behalf! -rib 


Dear Ron: 

I want to alert your readers of a 
potential problem in C.J.V. Yacht’s 
TYPEAHED TSR described in your Sep¬ 
tember issue. I wrote a similar TSR and 
had been using it without problems for 
over a year. A few months ago, after 
some changes to AUTOEXEC.BAT, I began 
experiencing a rash of memory alloca¬ 
tion errors. I ultimately identified the 
cause: there are some unscrupulous 
programs that clear the keyboard buffer 
by forcing the lower byte of the head 
and tail pointers to lEh, ignoring the 
upper byte. In my case, this allowed 
the next few keystrokes to overwrite 
the memory control block for my TSR, 
hence the memory allocation errors. 
One culprit was MI.EXE included in 
PCTools Deluxe, V6.00. DOS 4.01's FOR¬ 
MAT. COM was also suspect, but I did not 
take the time to prove it. 

A solution (besides shooting the un¬ 
scrupulous programmers), is to write 
the TSR so that it places the extended 


keyboard buffer where such cheap 
tricks will not cause a problem. This 
would use more memory, and would 
not protect against a program forcing 
the head and tail pointers to 001 Eh. 
While I have always intended to rewrite 
my program, I confess that I have so far 
taken the equally cheap expedient of 
adjusting my AUTOEXEC.BAT file until 
the buffer falls in a safe location. But I 
haven’t given (or sold) my TSR to 
anyone. 

Incidentally, a TSR needs to preserve 
only the first 96 bytes of the PSP, not all 
256 - the rest an be used for anything. 
The environment segment, if not 
needed, can be freed before terminat¬ 
ing. This reduces the minimum memory 
requirement somewhat, but Mr. Yacht's 
technique still has a much lower over¬ 
head. 

A minor correction to TECH Tips ar¬ 
ticle "Reading a Keyboard’s Extended 
Scan Codes”: the descriptions of the INT 
16h function OOh and function 01 h are 
reversed, as are those for functions lOh 
and llh. The errors are in the text of 
the article and in the comments near 
the beginning of Listing 3. The proce¬ 
dure code appears to be correct. 

Sincerely, 

Stanley Brown 
7477 Broken Staff 
Columbia, MD 

Thanks for the corrections. You are 
braver than I am; I would not scribble 
over those bytes marked Reserved in 
the PSP. I also wonder about the wis¬ 
dom of releasing the environment 
block. I am no TSR expert, but it 
seems to me that if you spawned your 
TSR from a shell that allocates the en¬ 
vironment block itself, you could end 
up freeing memory you shouldn’t. 
Anyone care to tell me why that can’t 
happen? -rib 


Mr. Burk, 

As a reader of your magazine, I have 
one suggestion for an article, and a 
question. 
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I would like to see an article com¬ 
paring the various virtual memory 
management libraries that are available. 
While there are a number of them on 
the market, I have not seen an in-depth 
comparison of the various libraries’ fea¬ 
tures and capabilities. A comparison of 
how well the libraries perform under 
different situations would be helpful 
too. 

I read your editorial concerning the 
"Calls for Papers.” I would be interested 
in undertaking such a project, but at 
this time, I don't have time such an un¬ 
dertaking. 1 have however, included list 
of the various libraries that I am aware 
of at the end of this letter. 

My one question is, do you know of 
any articles or books which contains al¬ 
gorithms for implementing error correc¬ 


tion? The only computer-related article I 
have been able to find on the subject 
was an article that appeared in the May 
1986 issue of BYTE. That article was 
long on math and theory, and very 
short on implementation details. Based 
upon that article however, 1 am primari¬ 
ly interested in the Reed-Solomon algo¬ 
rithm. I am also interested in the Ham¬ 
ming and Bose-Chaudhuri-Hocquen- 
ghem (BCH) algorithms for background 
purposes. 

Thank you for a fine magazine. 

Richard L Rosenheim 
5712 North Casa Blanca Rd. 

Paradise Valley, AZ 85253 


I have seen books devoted just to 
error correcting codes, but my only ex¬ 
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Notice to TS Subscribers 

Occasionally, TECH Specialist makes 
its mailing list available to vendors of 
products we think our readers will find in¬ 
teresting. Current subscribers receive free 
information in the mail from these ven¬ 
dors. If you prefer that your name not be 
used in these mailings, please let us know. 
Just copy or clip this form and send it with 
your name and address to: 



1601 W. 23rd. St., Suite 200 
Lawrence, KS 66046 




□ Request 286 on Reader Service Card □ 




PostScript Power 

PSPlot PostScript printer mana¬ 
ger. Converts HP-GL plots to Post¬ 
Script or EPS; plots lines any width or 
color. Has PostScript editor, font 
downloader and error display. Prints 
ASCII/FORTRAN files. Puts PC and 
MAC fonts in RAM or on printer disk. 
Works on networks. $175 

Double 1 P Booklet maker. Ideal for 
instruction manuals, reports. Accepts 
Post Script' output files from Ventura, 
Sprint, PageMaker, WordStar, Interleaf, 
Manuscript, Word for Windows, etc. 

Save paper with duplex printing, even 
from non-duplex printers. $259 

Legend Communications, Inc. 

54 Rosedale Avenue West 

Brampton, ON, Canada 1 6X 1KI 

30 day guarantee 

(800)668-7077 (416)450-1010 
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perience in that area is in hardware 
design. Can anyone with software ex¬ 
perience in error correction recom¬ 
mend a good book? 

Thanks for the suggested article 
topic. It is a good idea, but we stay 
away from comparative product 
reviews because we simply don't have 
the resources to produce the kind of 
quality we would like. A comparative 
review has the added complexity that 
each of the vendors is constantly 
revising their product and several may 
ship new versions while the review is 
being written. Memory managers, like 
a good many programming product 
areas, have reached such a degree of 
quality and complexity that we could 
easily devote several technical writers 
full-time for two months to do the com- 



UNIVERSAL 

Cross-Disassembler 


Missing source? Debugging? 
Upgrading an unsupported 
product? Then XDASM may be 
the solution. This unique MS- 
DOS based software disassembles 
programs for several types of 
microprocessors and 
microcontrollers. Creates an 
“Assembler Ready" source file 
from a Hex or Binary input file. Has configurable 
output to match assembler. Allows full control of 
disassembly using a separate TAG file. Assigns label 
names, provides instruction line detail, inserts 
assembler directives, deblocks source code into 
subroutines and generates multiple cross-reference lists. 
Processor families include: 1802. 4004. 6301. 65C02. 
6800. 6805. 6809. 68HC11. 7810. 8048. 8051. 8085. 

8096. COP400 800. Z8. Z80. Z180 plus others. Dual 
media diskettes and manual. $249. CROSS-16. the 
universal Meta-Assembler, available for $99. 

Check MO PO COD. 

J r — Data Sync Engineering 

P.O. Box 146 

East Stroudsburg, PA 18301 

Tel (717) 421-1977 Fax (717) 421-9095 
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PostScript TSRs — Under 9K 

PSFX TSR prints Post Script' out¬ 
put, just as formatted for Epson or IBM 
ProPrinter. See graphics, fonts, accents 
and boxes! Choose portrait or landscape, 
sizes up to 11x17. Print one or two 
pages per sheet. Use with databases, 
accounting, PrtSc key. $85 

PSFXnet Novell NetWare version 
adds banner pages. Keeps statistics on 
pages printed by each userlD. $99 

EPScreen Captures PC screens as 
tiny Encapsulated PostScript' (EPS) 
files (3K), frames & TIKE optional. 
Illustrations for manuals. Eont included. 
Color files less than 10 K. $95 

Legend Communications, Inc. 

54 Rosedale Avenue West 

Brampton, ON, Canada E6X 1K1 

30 day guarantee 

(800)668-7077 (416)450-1010 
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parative review you are talking about 
(there are a good many memory- 
management products on the market). 

I He may be able to tackle projects like 
that in the future, as we continue to 
grow, but we’ll wait until we can do 
the job right, -rib 


Ron Burk: 

Re: “From the Editor,” 8-91 “The 
boundary between humans and 
automata, the user interface, involves 
enough complex issues to keep us all 
employed for decades to come." 

I like the tone you have established 
in TECH Specialist. But, you could begin 
changing the human-factors, 
man/machine parallax with the next 
issue of TS. 

This “learning” quote is from an L.A. 


Times interview with Nobel Laureate, 
Brain Researcher Dr. Roger Sperry; 

“Sperrys split-brain work has the 
potential for changing teaching 
methods. The scientist contends that 
the present educational system dis¬ 
criminates against the develpoment of 
the capacities in a growing child that 
are present in the right hemisphere - 
the nonverbal, nonmathematical and 
creative activities.” (“Three Share Nobel 
Prize For Medicine," L.A. Times 10-10-81). 

What Sperry refers to as the nonver¬ 
bal, nonmathematical and creative brain 
hemisphere can also be called the 
“brain-patterns" hemisphere. 

Both modern Software and 
Flardware engineers are approaching 
their work in the finite mode of think¬ 
ing. And with good reason.Jt’s the dis¬ 
ciplined approach. 


But just as there are empirical transi¬ 
tions that have to be made between 
operating systems programming and 
applications software in the logic 
device, we also have to make the same 
transitions in our thinking (mind). 

That is, I saw no evidence of com¬ 
puter systems familiarity in the writings 
of brain researchers during my studies 
in the field. So, they fail to identify the 
nonverbal hemisphere as our applica¬ 
tions programming. 

A hardware example of the 
problems this causes was illustrated in 
a 1980 test assignment I had with a 
new Silicon Valley (Mountain View, CA), 
single board PC manufacturer. 

Their production line was turning out 
about 100 units a shift and, on average, 
only about 5 worked. So, when I arrived 
at their site the first day, I wasn't 
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BGI PRINTER DRIVERS 


Hardcopy drivers for the Borland BGI 
graphics interface with fulLsourcci 

The BGI Printer Driver Toolkit provides BGI 
printer drivers for Epson 9 & 24 pin dot matrix, 
HP LaserJet II, and HP PaintJet printers. Use 
the BGI graphics interface to effortlessly 
generate high resolution hardcopy with Turbo 
C, C+ + , and Turbo Pascal. Full driver source 
provided for your tutorial pleasure. $89.95 . 

PC TIMER TOOLS 


Over 60 functions implement microsecond 
resolution timing, precision delays, extensive 
interrupt profiling, and full timer tick interrupt 
management. Supports TC, TC+ + , TP, and 
MSC. Full library source included. $49.95 


Prices postpaid USA, elsewhere add $4.00. 
VISA and MasterCard accepted. 


RYLE 

DESIGN 


PO Box 22 

Mt. Pleasant, Ml 48804 
517-773-0587 
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SYSTEMS CORPORATION 

X-Port Parallel Adapter 

Expand mass store capabilities 

Attach CD-ROM and SCSI based 
peripherals to a single parallel port 

Comes with drivers for DOS, MSDEX 

Low power, compact size 

For notebooks, laptops, desktops 

$225 + shipping & handling 

PO, Cheque, VISA 

300 March Rd., 4th Floor, 

Kanata, Ontario, Canada, K2K 2E2 
(613) 591-3084 (613) 591-1806 (fax) 
Dealer & OEM enquiries welcomed 
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55 

CO 
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0:09 
TUB “ 5.0 

Times are to update a 45K library on a PC/XT. PVCS and TUB 3.0 are 
from Sept 87 PC Tech Journal. MKS RCS 4.2 and TLIB 5.0 are newer. 

TUB™ is BEST! 

“Do not he fooled by the fact that this is the 
least expensive of the five packages reviewed 
here - TUB has features and power to spare" 

John Rex, Computer Language 

“TLIB is a great system" J. Vallino, PC Tech J 

. Full-Featured Version Control for Software 
Professionals. Check-in/out locking. Branching. 
Keywords. Wildcard and list-of-file support. Can 
merge parallel changes and undo intermediate 
revisions. Network and WORM support. Main¬ 
frame compatible deltas for Pansophic, ADR, IBM, 
etc.. Integrates with Opus'" MAKE & Slick'” MAKE. 

MS-DOS $139, OS/2 $195 + shipping visa/uc 
5 station LAN license $419 (OS/2 $595), call for other sizes 

BURTON SYSTEMS SOFTWARE 

PO Box 4156, Cary, NC 27519 (919) 233-8128 
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Transputer Education Kit 

for students, professionals, and hobbyists 

$396 

• PC add-in board including 20-MHz 32-bit T400 

transputer, PC interface, and 1 Mbyte memory 

• T400C compiler and assembler 

• T400 0ccam2 compiler and debugger 

• 1500 pages of documentation, including schematics 

• Example and demonstration programs 



CSA also carries a complete line of professional 
transputer products including boards, software develop¬ 
ment tools, and multi-user parallel processing systems 

ComputerSystem Architects 

950 N. University Avenue • Provo, UT 84604 
(801) 374-2300 • 1-800-753-4CSA 
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Opt-Tech Sort/Merge 


Extremely fast Sort / Merge / 
Select utility. Run as an MS- 
DOS command or CALL as a 
subroutine. 

Supports most languages and 
filetypes including Btrieve and 
dBase. Unlimited filesizes, mul¬ 
tiple keys and much more! 

MS-DOS $149. 

OS/2, UNIX $249. 


Opt-Tech Data Processing 

P. O. Box 678 
Zephyr Cove, NV 89448 

(702) 588-3737 
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IMPACT VI .0 
Image Processing 

* Image Enhancement 

* Image Restoration 

* 2-D Data Analysis 

* Object Segmentation 

* Pattern Recognition 


IMPACT V1.0 is a completely integrated image processing 
system containing over 12 Mbytes of programs (>120 funcs) 
designed to run on any basic PC/AT without special 
hardware . It contains all basic math + Boolean functions, 2-D 
FFTs, (de)convolution, bandpass filtering, edge 
enhancements, editable filter masks, RGB color mapping, 
Riemann mapping, 3-D stereoscopic projections, non-linear 
contrast stretching, thresholding and re-normalization, 
contour and area integrals, ROI statistics, pixel-line plots, 
etc, etc. 

$225 

(FREE upgrade to V2.0) 

$4.50 S&H, NM add 5.875% 

TARDIS Systems Inc. 

945 San Ildefonso, Suite 15 
Los Alamos, NM 87544 

Voice + FAX: (505) 662-9401 
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Disk duplication 
All formats 

EVERLOCK copy protection 
Label/sleeve printing 
Full packaging services 
Warehousing 
Drop shipping 
Fulfillment 
48-hour delivery 
Consultation & guidance 


A/W 


Star-Byte , Inc. 

2880 Bergey Rd Hatfield. PA 19440 


800 - 243-1515 
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FLOATING POINT 
ARRAY PROCESSOR 

* Operates on Arrays & Matrices; 
Integer, Real, & Complex Structures. 

* Process math-intensive algorithms 
100 times faster than the 80387. 

* 598 mathematic & scientific functions 
on-board in EPROM, callable from C. 

* Private high speed STATIC memory 
(0.25 to 4.25 megabytes) on board. 

* 3 megabytes/sec to/from ISA host. 

* Direct hardware link to video & A/Ds. 

* 1000 page reference manual. 

* $2495.00 complete with software. 

* Call for function list and benchmarks. 

Eighteen Eight Laboratories 

1-800-888-1119 FAX 702-294-2611 
1247 Tamarisk Lane 
Boulder City, NV 89005 
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Little Giant™ 

New’. Tiny Giant™ 

C Programmable Controllers 

Develop your 
products fast! Use 
our miniature con¬ 
trollers with paral¬ 
lel I/O, solenoid 
drivers, A/D and 
D/A converters, 
real time clock, 
watchdog, LCD in¬ 
terface, RS232/485 serial ports, built-in power sup¬ 
ply and much more! Applications range from indus¬ 
trial control to data acquisition. Our $195 interac¬ 
tive Dynamic C™ development system makes 
programming easy. We also have design-your- 
own-board core modules as low as $59 in quantity. 

Z-World Engineering 

1724 Picasso Ave., Davis, CA 95616 USA 

Tel: (916) 753-3722 

Regular Fax: (916) 753-5141 

Automatic Fax: (916) 753-0618 
(Call from your fax, request data sheet #18.) 
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32-bit Protected Mode 
386 C Graphics Library 

Intel 386/486 C Code Builder 
MetaWare, MicroWay, SVS, 
Watcom & Zortech with 
Phar Lap 3861 ASM 

Mixed Raster/Vector, 
Scalable, Rotatable Font, 
VGA, SVGA, 8514/A, VESA, 

Hercules Graphics Station 
through 1024x768x256 (8-bit), 
640x480x32k (16-bit), 
512x480x16.7m (32-bit), 
WYSIWYG HP-GL/PostScript 
$200 NO ROYALTIES 
FULL SOURCE CODE 
Gary R. Olhoeft 
P.O. Box 10870 Edgemont 
Golden, CO 80401-0620 
303-877-3697 CIS 76665,2021 
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DEVELOPERS! 

AE^EAOnEPI! 

GOING INTERNATIONAL? 

Our string extemalization utilities and C 
functions can help you get your package ready 
for the international market. 

These proven utilities extract literal strings 
from your C source code, ready for editing, 
translation or encryption, without impacting 
your original executable. While saving scarce 
initialized data space, these functions allow 
your easily re-denned prompts to behave as if 
they were compiled directly into your program. 
This permits the original executable to "speak" 
the language of your choice, even Japanese! 

Includes all object/source code and libraries 
for popular C compilers. Price$149.95forob- 
ject, $249.95 for source code site license. No 
royalties. DOS, Unix, Mac, etc. VA residents 
add sales tax. 

Network Dynamics, Inc. 

2225 S. Henry Street, Suite L-2 
Williamsburg, VA23185 
Phone (804) 220-8771 Fax (804) 220-5741 
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ONE STOP 
SOFTWARE 
DUPLICATION 


❖ Disk & Tape Duplication 
♦♦♦ Documentation Printing 
♦♦♦ Package Assembly 
•!• Distributive Shipping 
»♦» Bulk Disk & Tape Sales 
♦♦♦ Optical Media Duplication 

( 800 ) 222-0490 

FAX: (908) 462-5658 

MEElFPi 

819 Route 33 J v -' 

Freehold, NJ 07728 
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DUPLICATION 

EQUIPMENT 


♦♦♦ Unattended Volume Duplication 
•»* PC Based & Standalone Units 
*»• Up to 180 disks/hour! 

•> Easy Installation 

❖ Expandable & Field Upgradeable 

♦♦♦ Maintenance Contracts 

♦♦♦ CD ROM Development Systems 


( 800 ) 222-0490 
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surprised to see the VP engineering (the 
board designer) seated in front of a 
mountain of state-of-the-art test equip¬ 
ment and surrounded by bad PC 
boards, trying to get some marketable 
product finished. 

About an hour later he interrupted 
my work area preparation to beckon 
me to his side. He was taking a break 
from his unproductive testing and had 
in mind introducing me to the circuit 
and board layout. I listened to him for 
about ten minutes. 

Then, having seen where he was 
working on the circuit board, I asked if 
he minded my using a bench meter on 
one of the nonfunctioning boards. And, 
within perhaps five minutes I’d found 
bad 'patterns' around the base of the 


transistor where I had seen him taking 
measurements...he told me later the as¬ 
sembly line had mistakenly installed a 
transistor whose case looked like the 
right one but that had a different 
basing. 

Patterns! Software engineering publi¬ 
cations aren't making their pattern tran¬ 
sitions yet. Just as the really fine circuit 
engineer in my anecdote failed to ac¬ 
count for the patterns in his circuit 
board assembly and test, software pub¬ 
lications are failing to account for the 
interface between machine patterns 
and human patterns. 

And, just as in my test example, 
these patterns can’t possibly be totally 
substituted for...even with infinite, in¬ 


cremental logic. Because the patterns 
are analogical. 

Sincerely, 

Dick Bullock 
P.O. BOX 1506 
Douglas, AZ 85607 

I am not quite sure what you are 
suggesting we do differently, but I cer¬ 
tainty agree that pattern perception is 
an important part of programming. For 
example, when you are faced with a 
subtle bug in a huge piece of software 
that you didn’t write, the most efficient 
course of action is sometimes to 
generate as much debugging data as 
possible and then stare at it until a pat¬ 
tern emerges. Finding patterns is still 
one area where the human brain can 
beat computers hands down, -rib 
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CopyControl 
COPY PROTECTION 


Control your profits with the copy protection designed 
with strength, user-transparency and compatibility, 

• Beats ALL the bit-copiers & Dis-assemblers 

• No hardware plugs or special disks required 

• Encrypts your program & adds anti-debug code 

• Allows you to produce full function demos 

• Compatible with LAN, backups & disk utilities 

• Supports all Floppy & Hard disk formats 

• Allows you to change parameters remotely. 
Control when, where, and how your software is ran. 
Compatible with all IBM/DOS Computers. 

$595 Unlimited Version, 30 day Money back guarantee 
Also available by Meter Count liSK] 
Free Demo & Info • COD • PO MM 


Tlicrocosm Inc. 


Drawer 0, Wellington, MO 6409/ 

(800) 237-8400 ext. 212 
(816) 934-8384 / Fax (816) 934-2617 
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WinGoat 

The |ORF® Language is the Easy 
OOP language that supports same 
source, same data, same key¬ 
strokes, same menus and mouse 
for fancy DOS and fast Windows. 

• Program for DOS PCs and Windows 

• Translates to create true EXE files 

• Named after a Goat 



Shareware Interpreter 
and Tutorial.$10 

Registration, Manual 
Debugger, Editor . $85 

C Translator for 
Borland’ C++.$85 


The JORF Company 
25858 Elwood Road 
Colton, OR 97017 
(503) 824-JORF 
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The Upper Deck Editor 

A Serious Editor For Windows 3.0 

Edits files larger than 64K, real 
UNDO (300 levels), regular expres¬ 
sions, search across multiple files, 
split-screen file comparison, com¬ 
piler support, keyboard macros, fully 
customizable. 

INTRODUCTORY PRICE $75 

Call for our fully functional 

DEMO DISK! 

(619) 741-1075 

Upper Deck Systems 

P.O. Box 2751, Escondido, CA 92033 
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MEMWING 

MEMory manager for WINdows Global memory 

Move your C code that uses callocO, 
freeO, mallocO, reallocf) and strdupO to 
Windows 3.0 with no changes! 

Just Wing it! 

■ Easy to use 

■ Source code library 

■ 4K code size overhead 

■ Eliminates 8192 handles limit 

■ Built in debugging 

» Use MSC or Borland C+ + 

■ $59 + shipping 

■ 30 Day guarantee 

Montana Software 

P.O. Box 663, Bozeman, MT 59771-0663 
406-586-2984 
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Speed Up Development With: 
Programmer’s SUPER-MAINT «#•” 

SUPER-MAINT builds your make and 
response files, remembers your command 
flags, the make file name, and more! 
SUPER-MAINT works for you so you can 
focus where you need to: on your 
programming! Still only $55 (+ 2.50 t&h. NY 

residents add ulei tax). 

7 c wft tell you bcw niffy tbit thing it.' Jcaepb Stans, Ufh Data 


Make File Builder Supports Microsoft, Borland, Aztec, 
Clipper, Mix languages: just "point and shoot" at code 
files you want in your program, multiple setups, user 
configurable. Free CompuServe Intro Pak with 
purchase. 



EmmaSoft 
PO Box 238 
Lansing, NY 14882 

Voice: (607) 533-4685 
BBS: (607) 533-7072 

m. s 
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FIX 80386 



SAVES YOUR PC 


The FIX-80386 solves the Errata 21 timing problem 
that is showing up on many PC's. IF your PC locks up 
when running UNIX or AUTOCAD, HP BASIC, MICRO 
CADAM PLUS or memory extenders in MS-DOS you 
will need this part. The part is placed between the 80386 
and its socket. Constructed of gold pins and sockets for 
highest quality. Available immediately. ALSO ASK 
ABOUT OUR UNIQUE SOLUTIONS FOR PROBING 
PGA's, PLCC's and LCC's. 


IRONWOOD ELECTRONICS 

P.O. BOX 21151, ST. PAUL, MN 55121 
(612)431-7025; FAX (612) 432-8616 
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CHOICE INSTALL 


So you want to write a hot Windows video game and 
make the big money. The problem is, you don't 
have a sprite animator. Don't fret. Use ours. 

The BEST choice to install your 


product. Only one license fee for all 


WANIM.DLL 

of your products and all of the 


The Windows 3.0 Sprite Animator 

features you want including auto 


From 

configuration, error handling, more. 


AND-XOR Systems 

$149 plus shipping, demo disk $5. 
Source code +$100. Requires C 
Compiler (Microsoft, Zortech or Bor¬ 
land). Use it successfully or we'll 
refund your money with no hassle. 
Order today, use it tomorrow, ship 
your product the day after. 

ChoiceWare 

8802 E. Broadway #211 


• Animate sprites on a colored background within a 
window, using multiple animation zones. 

• Great for screen savers, games, education, multimedia. 

• Algorithmic and bitmap sprites. 

• Automatic masks generation from sprite images. 

• Change display priorities on the fly. 

• Background scroll. 

• Collision detection. 

• Fast multitasking DLL. 

• Use with any Windows 3.0 compatible language. 

• Use with MS Windows Multimedia Extensions. 

• Only $69. With source $99. No Royalties. Free demo. 



Tucson, AZ 85710 


^ AND-XOR Suite 167 

J Systems South Pasadena, CA 91030 

(602)298-0666 


N -' (213)969-4081 
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Disassemble MS-Windows 
Executables with eee 

• Creates detailed assembly code listings 
from MS-Windows 3.x executable files. 

• Identifies program segmentation, 
automatically! 

• Labels Window’s API calls and exported 
functions, automatically! 

• Fast forward to references to specific 
Win API calls or module entry points. 

• Extracts just the function you need using 
a disassembly range. 

• Provides batch interface to define 
descriptive names and type information 
using a response file. 

• Supports 8086 - 80386. 


Man./Disk $74.95 + S/H($2US/$5lntl) 
Call or FAX (408)262-3264 
30-Day Money Back Guarantee 


n 

1 

Eclectic Software 

937 Jungfrau Court 

Milpitas, CA 95035 USA 

eclectic 
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NETWORK 

CONTROL 

LIBRARIES 

NETBIOS ROUTINES allows ac¬ 
cess to low-level network func¬ 
tions. Name, session, and 
datagram routines. Wait and no¬ 
wait options. $99 

NETWORK MASTER provides 
access to Netware internal func¬ 
tions. Complete network control 
from your compiled programs! $99 

Starlight Software 

P.O. Box 1090 
Wheeling, IL 60090 
(708) 394-0622 
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SOFTWARE & HARDWARE 
Development 


‘Software ‘Firmware 
‘Designs ‘Reviews 


TARDIS Systems Consulting Group 

***************************************** 

Why not get the BEST? We represent a group of top- 
notch highly motivated scientists and engineers from one 
of this countries leading national labs. They want to 
market their skills in the private sector. 

***************************************** 

Dr. Christopher A. Ciarcia 
TARDIS Systems Inc. 

945 San lldefonso, Suite 15 
Los Alamos, NM 87544 
Voice + FAX: (505) 662-9401 
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Scalable Fonts 

Integrate the FastFont ™ Typeface 
Manager object library into your 
application to add fast, on-the-fly 
printer and display fonts. Includes 
the three most popular hinted font 
families. 300+ fonts available. 
Only $495 with NO ROYALTIES. 
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Ancier 

Technologies 

5964 La Place Ct. #125 
Carlsbad, CA 92008 
Ph: 619/438-5004 xi32 
Fax: 619/438-6898 


□ Request 156 on Reader Service Card □ 


WRITE SOFTWARE 
WITHOUT LANGUAGE 


Idire^^odincJ 

Software made CCISy. 

Professionals, Scientists, 
Engineers, Technicians. 

M-Code $179.00 
A tool to write software for the 

8088 family, 8051 family 
and other processors 

Call or send for data sheet 

Box 4601 Carmel CA 93921 
J^lV^llJystems (408) 625 9016 
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SDLC, HDLC 
And X.25 Support 

Use Sangoma hardware and software 
to provide fast, cost effective, robust 
and easy to use SDLC, HDLC and X.25 
links from MS-DOS, UNIX, Concurrent 
DOS etc. 

All real time communication functions 
are performed by intelligent coproces¬ 
sor card. Line speeds up to 160 kbps 
are supported. Powerful debugging, 
line statistics and trace facilities are 
included. 

Full function SNA emulation packages 
also available. 

SangOma Technologies Inc. 

■a (416) 474-1990 
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MS dos System 
Programming 

2nd Edition 


Edited by Robert Ward 
NOW- You can get the informa¬ 
tion most programmers don’t 
even know about. 

PLUS -Gain access to a critical 
bibliography that will become an 
indispensible resource to you. 

HIGHLY TECHNICAL 
HIGHLY FOCUSED 


Second edition 


MS-dos 

system programming 


Every entry is written by 
working programmers for 
working programmers. In¬ 
cluded are compiler- 
specific insights that will 
save you hours of work. 
Find out how to exploit spe¬ 
cial Turbo C features to 
simplify device drivers. Plus 
a bibliography designed to 
help the serious program¬ 
mer develop a personal 
library of MS-dos literature. 


edited by 

ROBERT WARD 


Nitty Gritty Coverage on 
These How-to Topics 


e Critical Error Handling 
e Customizing the DOS 
Boot Strap 
o Interrupt-Driven I/O 
o Manipulating 

Environmental Variables 
o Event Timing 
o Writing TSRs 
o Controlling the Disk 
Hardware 
o Writing Device 
Drivers 


Released July 1991, 240 pp. ISBN 0-923667-20-2 

ORDER w«|j 

DIRECTLY £.Bl.n s .. 

from specialist. 


913 - 841-1631 

FAX: 913-841-2624 



Is your product 
special? 

Is it so special only a 
programmer can 
understand it? 

Then advertise in 


the journal for programming specialists. 

Call (913)841-1631 today 

to reserve space 
for your ad. 

Ask for Jeff (Western Region), 
Donna (Midwestern Region), 
or Ed (Eastern Region) 
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1601 W. 23rd St., Suite 200 
Lawrence, KS 66046 
(913) 841-1631 FAX: (913) 841-2624 


FREE 

Product 

Information 

Use this postage paid 
card to stay up to date 
on products 
that affect 
your productivity. 

Just fill out the card at 
the right and 
drop it in the mail. 


TECH. 

specialist 


Please help us serve you by 
answering the following: 

1) I program: 

□ for a living 

□ as a hobby 

□ as a manager 

2) I program in: 

□ MS-DOS 

□ Macintosh 

□ Xenix/UNIX 


3) I program most frequently in: 

□ Assembly □ BASIC 

□ Pascal □ C 

□ Other _ 

□ Please send me subscription 

information. 
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BAT 


RUST IMPRESSIONS LAST. 

INSTALL 3bi0 GIVES YOUR SOFTWARE PIRODUCT 
A PROFESSIONAL INTRODUCTION. 


Installation procedures that rely on 
batch files and DOS commands not 
only look amateurish but also have 
limited error handling capabilities. 
Today's users expect quality and ease 
of use from software — beginning the 
moment they open the package. A 
smooth, professional installation 
makes an important first impression. 

EVERYTHING YOU NEED 

INSTALL 3.0 is customized for your 
product with an ASCII text file called 
a "script file." INSTALL 3.0 comes 
with many sample script files that you 
can modify and use immediately. No 
programming is necessary to create 
most installations. However, C source 
code is included for your convenience 
and technical support is free. 

FAST AND SIMPLE 

Use INSTALL 3.0 to create an elegant 
installation procedure that will 
increase users' confidence in your 
product. INSTALL 3.0 takes advan¬ 
tage of available RAM for lightning- 
fast file transfers. All your documen¬ 
tation has to tell users is TYPE 
"A: INSTALL". 


INSTALL PRO 

• Builds distribution disk sets 
automatically 

• Creates a configuration file, 
containing all parameters for 
each disk set 

• Automatically builds INSTALL 
script files 

• Automatically formats disks 
(360K, 720K, 1.2M, 1.44M) 

• Uses a full screen, point-and- 
shoot interface for fast, efficient 
file tagging 

• Automatically splits large files 
across multiple diskettes 

• Literally cuts distribution disk 
building time from days to 
minutes for complex products 


Knowledge Dynamics 
Corporation 

Highway Contract 4, Box 185-H 
Canyon Lake, Texas (USA) 
78133-3508 
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PROVEN RELIABILITY 

INSTALL 3.0 has been used for over 
four years by some of the biggest (and 
smallest!) names in the industry, in 
the U.S. and abroad, to install millions 
of copies of their programs. Add your 
name to the list today. 

30 DAY MONEY-BACK 
GUARANTEE 

Free technical support. No royalties. 

MasterCard/VISA/COD/POs 

welcome. 

$399.95 INSTALL PRO 
$249.95 INSTALL 3.0 
$99.95 International Option 
$99.95 OS/2 Option 

SALES 

1/800-331-2783 ext. #0194 

International 
1/512-964-3994 
24 hour FAX 1/512-964-3958 
24 hour BBS 1/512-964-3929 

CALL OR FAX BY NOON 
AND RECEIVE INSTALL 3.0 
TOMORROW! 







Our new QEMM 

whips DOS 5 
into shape. 



DOS 5.0 provides a lot of advantages for 
PC users. But even with its improved 
memory management capabilities, 1024 K 
it still can't touch QEMM. 

Our new version 6 is better. It still 
'pools' memory so that it's available in 
whatever form your programs need- 
expanded or extended. You don't g 4 ( 
even need to know the difference. 

QEMM does it all for you. Instantly. All 
other managers require you to figure out 
— what you need, then 
/- TV manually allocate memory 
rjy^Yj and re-boot every time you 
need to change. 

What's new is that we 
increased the amount of memory it frees 
up and improved the way it performs. Qg 
Our exclusive 'optimize' feature auto¬ 
matically seeks out TSRs and device drivers 
and moves them out of your PC's conven¬ 
tional memory and into high memory. All you 
have to do is type 'optimize'. 

QEMM-386 v6 finds more memory for 
your programs than any 
other memory manager. 

Period. 

And only QEMM 
monitors your memory- 
checking to be sure TSRs 
and utilities can be moved 
safely before it does so. 


DOS=high 
System ROM 

Network Adapter 



What you can expect 

Automatic Memory 

Gain Comparison' 

■ll 

DOS5 QEMM5 QEMM6 


Network Drh 

DOS 5.0 


Our example PC with DOS 5.0 allows 499K for 
conventional programs. After running QEMM, there’s 618K! 

Who'd have thought there'd be 
another 115K in your PC? 

Our breakthrough 'Stealth' technology results 
in a gain of up to 115K of high memory on 
many PCs by taking advantage of the way 
memory is organized in most IBM®, Compaq 
and 100% compatible PCs to 'map' ROM into 
other areas of memory. Only our memory 
wizards fully understand the technology 
behind it, but every user can appreciate the 
huge increase in available memory. 


Of course, not every PC has an extra 
115K of high memory, but every PC can 
benefit from 'Squeeze'—our new feature 
to manage those TSRs that need more 
memory at start up and less when they're 
resident. Memory allocation is 
temporarily increased, then squeezed 
down when it's no longer needed. 

QEMM automatically uses idle 
VidRAM to produce a further 96K gain 
on EGA and VGA-equipped systems 
when running 
character-based 
programs. 

Apriceless 
$60 bonus. 

QEMM comes 
with Manifest, the 
award-winning analysis program that makes it 
easy to see what's going on in your PC. 

QEMM benefits users of 
older DOS versions, too. 

Whether your computer is a PS/2™ 50 with 
DOS 3.3, a 486 with 5.0, or something in bet¬ 
ween, QEMM can improve your performance. 

That means you may not need a faster 
cpu. You may not need more RAM. QEMM 
makes your favorite programs work better by 
allowing them more memory to run in. 

QEMM helps you get the most out of the 
software you own today. 



^CliiifiMpdhck 

Quarterdeck Office Systems, 150 Pico Boulevard, Santa Monica, CA 90405 (213) 392-9851 Fax (213) 399-3802 

For orders only, call toll-free (800) 354-3222 7 am-5pm PST. 

©1991 Quarterdeck Office Systems. Trademarks are property of their respective owners. 
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